Shiny

问题 I have randomly generated a reproducible example of range . And I wish that my input will store in the Global Environment ( selectednumbers ). So when I run the shinyApp , let's say I choose the slidebarInput between 1 and 100 , the verbatimTextOutput will shows (which I satisfied): [1] 1 2 3 6 8 11 15 17 20 21 22 27 But when I checked for the selectednumbers (Global Environment), it shows (which I don't want): [1] 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 [21] 21 22 23 24 25 26 27

问题 In my shiny app I have lots of valueBoxes, each representing a tabItem in the sidebar of the shinydashboard. When clicking on the valueBox the page should move to the correct tab. Instead of copypasting the code lots of times I wrote a reusable module which renders the valueBox and changes the class of the valueBox into an actionButton. In the server part I have included an observeEvent which calls updateTabItems when the valueBox is clicked. But when clicked nothing happens. It seems that

问题 In my shiny app I have lots of valueBoxes, each representing a tabItem in the sidebar of the shinydashboard. When clicking on the valueBox the page should move to the correct tab. Instead of copypasting the code lots of times I wrote a reusable module which renders the valueBox and changes the class of the valueBox into an actionButton. In the server part I have included an observeEvent which calls updateTabItems when the valueBox is clicked. But when clicked nothing happens. It seems that

问题 In my shiny app I have lots of valueBoxes, each representing a tabItem in the sidebar of the shinydashboard. When clicking on the valueBox the page should move to the correct tab. Instead of copypasting the code lots of times I wrote a reusable module which renders the valueBox and changes the class of the valueBox into an actionButton. In the server part I have included an observeEvent which calls updateTabItems when the valueBox is clicked. But when clicked nothing happens. It seems that

问题 I am using pickerInput in my shiny dashboard, which is fine except for one issue: The background color and font color are too similar, making the filter choices difficult to read. Is there any way to change either the background or font color? I'd like to continue to use pickerInput if possible, but if there's a method with selectInput or anything else that'd be fine. Sample of one of my pickerinputs that produces the result in the screenshot: output$typeOutput80 <- renderUI({ Commodity.Name

问题 I have a shiny app with two tabs, each with a DataTable that have numericInputs so I have to bind and unbind the DataTable for the numericInputs to work. Unfortunately this has created reactivity problems that I am hoping someone can help with. In the example below, if you change the input on the sidebar that determines the data in the tables, only the table in the open tab will actually update/react. library(shiny) library(DT) shinyApp( ui = fluidPage( sidebarPanel( # choose dataset

问题 I have a very simple Shiny app as below - library(shiny) ui <- fluidPage( div(id = "01", style = "cursor:pointer; height: 300px; width: 300px; text-align: center; background-color: green", HTML("01")), div(id = "02", style = "cursor:pointer; height: 300px; width: 300px; text-align: center; background-color: blue", HTML("02")), div(id = "03", style = "cursor:pointer; height: 300px; width: 300px; text-align: center; background-color: red", HTML("03")), plotOutput("plot") ) shinyApp(ui, server =

问题 I have a very simple Shiny app as below - library(shiny) ui <- fluidPage( div(id = "01", style = "cursor:pointer; height: 300px; width: 300px; text-align: center; background-color: green", HTML("01")), div(id = "02", style = "cursor:pointer; height: 300px; width: 300px; text-align: center; background-color: blue", HTML("02")), div(id = "03", style = "cursor:pointer; height: 300px; width: 300px; text-align: center; background-color: red", HTML("03")), plotOutput("plot") ) shinyApp(ui, server =

问题 Is it possible to display different image as title of the shiny dashboard based on the tabPanel() that you use. I want different image for the tab 'Front' and different for the tab 'Data' . # app.R ## library(shiny) library(shinydashboard) library(shinydashboardPlus) library(DT) library(shinyWidgets) library(shinyjs) dbHeader <- dashboardHeaderPlus( enable_rightsidebar = TRUE, rightSidebarIcon = "gears", fixed = T, title = tags$a(href='http://mycompanyishere.com', tags$img(src='logo.png')) )

问题 Is it possible to display different image as title of the shiny dashboard based on the tabPanel() that you use. I want different image for the tab 'Front' and different for the tab 'Data' . # app.R ## library(shiny) library(shinydashboard) library(shinydashboardPlus) library(DT) library(shinyWidgets) library(shinyjs) dbHeader <- dashboardHeaderPlus( enable_rightsidebar = TRUE, rightSidebarIcon = "gears", fixed = T, title = tags$a(href='http://mycompanyishere.com', tags$img(src='logo.png')) )