Shiny

问题 I want my Shiny select input to: Has no label Has customized background colour: #2f2d57 Has placeholder Enable users to type-in and select However, I can't make the app follow the above 4 rules together. My codes are below: Data: table <- data.frame(col1 = c(3, 4, 8, 5, 2, 6, 7)) Attempt 1 Problem: Users are unable to type-in and select from the selectInput ui <- fluidPage( uiOutput("container") ) server <- function(input, output) { output$container <- renderUI({ fluidRow( tags$style("#three

问题 I want my Shiny select input to: Has no label Has customized background colour: #2f2d57 Has placeholder Enable users to type-in and select However, I can't make the app follow the above 4 rules together. My codes are below: Data: table <- data.frame(col1 = c(3, 4, 8, 5, 2, 6, 7)) Attempt 1 Problem: Users are unable to type-in and select from the selectInput ui <- fluidPage( uiOutput("container") ) server <- function(input, output) { output$container <- renderUI({ fluidRow( tags$style("#three

问题 I would like to position two visNetwork plots side-by-side for visual comparison. Multi-plot positioning is possible using igraph with par() or layout(). Is there a way to do this for visNetwork? Work-arounds/kludges (including RShiny, etc.) are acceptable answers - whatever works to provide a side-by-side visNetwork display. Note that ID numbers etc. overlap, so putting both networks into the same graph would be a lot of data manipulation that I wish to avoid. Here is an example of the type

问题 I would like to position two visNetwork plots side-by-side for visual comparison. Multi-plot positioning is possible using igraph with par() or layout(). Is there a way to do this for visNetwork? Work-arounds/kludges (including RShiny, etc.) are acceptable answers - whatever works to provide a side-by-side visNetwork display. Note that ID numbers etc. overlap, so putting both networks into the same graph would be a lot of data manipulation that I wish to avoid. Here is an example of the type

问题 Minimal reproducible example: library("shiny") ui <- fluidPage( actionButton("button1", "Run 1"), actionButton("button2", "Run 2") ) server <- function(session, input, output) { cat("session starts\n") observeEvent(input$button1, { cat("1 starts\n") Sys.sleep(15) cat("1 stops\n") }) observeEvent(input$button2, { cat("2 starts\n") Sys.sleep(15) cat("2 stops\n") }) } shinyApp(ui = ui, server = server) Each button simulates running some long cpu-intensive algorithm. Run the app and open a

问题 Minimal reproducible example: library("shiny") ui <- fluidPage( actionButton("button1", "Run 1"), actionButton("button2", "Run 2") ) server <- function(session, input, output) { cat("session starts\n") observeEvent(input$button1, { cat("1 starts\n") Sys.sleep(15) cat("1 stops\n") }) observeEvent(input$button2, { cat("2 starts\n") Sys.sleep(15) cat("2 stops\n") }) } shinyApp(ui = ui, server = server) Each button simulates running some long cpu-intensive algorithm. Run the app and open a

问题 Is there a way to have the selected row(s) in a shiny datatable (DT) be available for the user to copy (Ctrl+C) to their clipboard. Ideally it would also supply the data table's column names or headers. UPDATE global.R library(rclipboard) library(shiny) ui.R: ... rclipboardSetup(), ... uiOutput("copy"), server.R: output$copy = renderUI({ s = input$orders_rows_selected rclipButton("copybtm","Copy",data()[s,],icon("clipboard")) }) 回答1: Here is how to get a button to copy the selected rows. And

问题 I have a datatable in shiny. When a user selects a certain row, I want to display some other data based on the selected row in a new window. I tried to use shinyBS package but I could not use it without action button and I don't want to include action button. I want the pop up to display when a row is selected. Any ideas? mymtcars = head(mtcars) for_pop_up = 1:6 app <- shinyApp( ui = fluidPage( DT::dataTableOutput("mydatatable") ), server = shinyServer(function(input, output, session) {

问题 I have checkboxGroup with selected items, and actionButton. I need on actionButton click uncheck checkBoxGroup. wellPanel( checkboxGroupInput(datename, "Select dates:", some_dates, selected = outlier_dates_to_select), actionButton("buttonname", "Uncheck all") ) Any suggestions, how I can manage that? Thank you a lot! 回答1: You have to use actionButton like this for example : In ui.R : shinyUI(pageWithSidebar( headerPanel(title=""), sidebarPanel( checkboxGroupInput("Test1", "Test1", choices=c(

问题 I have a datatable in shiny. When a user selects a certain row, I want to display some other data based on the selected row in a new window. I tried to use shinyBS package but I could not use it without action button and I don't want to include action button. I want the pop up to display when a row is selected. Any ideas? mymtcars = head(mtcars) for_pop_up = 1:6 app <- shinyApp( ui = fluidPage( DT::dataTableOutput("mydatatable") ), server = shinyServer(function(input, output, session) {