Shiny

问题 I'm creating a shiny app with 2 different tabs. Each of them has a couple of plotly plots. I want the plots to only react to the plotly_click events from the correspondent tab. My problem comes when instead of having separated plots, I want one of them to be part of a subplot. To do so, I have added the source parameter to the plots in order to distinguish which plot is the one that has been clicked. When the plots are individual plots (not inside a subplot) works nicely, but if I try to put

问题 I have a pretty basic Shiny app. I am using renderUI and uiOutput to populate a selectInput where a date can be selected. But I'd only like that selectInput to appear if a user chooses an option via a radio button: As it currently stands, the app radio buttons don't have any effect. (At this stage, IF things were working, clicking on 'no date' would mean nothing is plotted). I'm sure the problem is here: radioButtons('radio', 'Radio', choices=c('show_date', 'no_date'), selected = NULL, inline

问题 I am trying to build a shiny app that uses dynamically created inputs within a data.table with the help of the DT package. In the reproducible example below, the shiny-input input$Sel_Group_1 created within the DT-output depends on the value chosen in the shiny-input input$selectGroup (values a or b). The selected item (values c,d,f,g) are then shown in the textoutput output$selectedItem . When I initially launch the app everything works fine, but as soon as I update the value in input

问题 I have a pretty basic Shiny app. I am using renderUI and uiOutput to populate a selectInput where a date can be selected. But I'd only like that selectInput to appear if a user chooses an option via a radio button: As it currently stands, the app radio buttons don't have any effect. (At this stage, IF things were working, clicking on 'no date' would mean nothing is plotted). I'm sure the problem is here: radioButtons('radio', 'Radio', choices=c('show_date', 'no_date'), selected = NULL, inline

问题 I have a Shinydashboard with reactive Dygraph boxes. I successfully setup a reactive box title to display the maximum value in the dataset and I'd like to do the same for the Status option. Here's what I've got so far: ui <- dashboardPage( dashboardHeader(title = "Sites", disable = TRUE), dashboardSidebar( #collapsed = TRUE, disable = TRUE, sidebarMenu() ), dashboardBody( fluidRow( box(title = textOutput('dyermax'), background = "black", status = textOutput('dyerStat'), dygraphOutput("plot1",

问题 I have a Shinydashboard with reactive Dygraph boxes. I successfully setup a reactive box title to display the maximum value in the dataset and I'd like to do the same for the Status option. Here's what I've got so far: ui <- dashboardPage( dashboardHeader(title = "Sites", disable = TRUE), dashboardSidebar( #collapsed = TRUE, disable = TRUE, sidebarMenu() ), dashboardBody( fluidRow( box(title = textOutput('dyermax'), background = "black", status = textOutput('dyerStat'), dygraphOutput("plot1",

问题 I have a library with custom functions and I need to use one in a shiny app. This function has a for loop inside it and I want to use the variable in that loop to update a progress bar (instead of copying the function to the server file, because I want to keep everything separate and clean). So far, I've managed to get a message to pop up when the function is running with "withProgress()", but I would like to make it even nicer showing the % of the job that is done, so the end users don't

问题 I have the following two scripts creating one numericInput and one selectInput fields. One is in shiny , and the other is in shinydashboard . I also created shinyapps.io link to these two examples. My question is why shinydashboard changes the corner of the numericInput to be 90 degrees? Please see the screenshots. In example 1, both input fields have round corners. However, in example 2, the corner of the numericInput becomes 90 degrees. It would be great if someone can help me understand

问题 I have a r shiny app in which users have numerous choices they need to pick prior to plotting. In the pickerInput, the label text goes behind the choices. The code below library(shiny) library(shinydashboard) library(shinyWidgets) library(shinyjs) library(magrittr) library(dplyr) ui <- dashboardPage( dashboardHeader(title = "PickerInput Query", titleWidth=450), dashboardSidebar( width = 300, useShinyjs(), sidebarMenu(id = "tabs") ), dashboardBody( uiOutput('groupvar'), uiOutput('shapetype') )

问题 I have a r shiny app in which users have numerous choices they need to pick prior to plotting. In the pickerInput, the label text goes behind the choices. The code below library(shiny) library(shinydashboard) library(shinyWidgets) library(shinyjs) library(magrittr) library(dplyr) ui <- dashboardPage( dashboardHeader(title = "PickerInput Query", titleWidth=450), dashboardSidebar( width = 300, useShinyjs(), sidebarMenu(id = "tabs") ), dashboardBody( uiOutput('groupvar'), uiOutput('shapetype') )