shinydashboard

问题 I am trying to build a Corona Dashboard. Where If someone selects State from the dropdown, District wise cases to be displayed in the graph. E.g. If someone selects Gujarat, it shows district wise cases in Bar chart. Someone change it to Maharashtra, It should update with the district of Maharashtra. But I am getting "ERROR: data must be a data frame, or other object coercible by fortify() , not an S3 object with class reactiveExpr/reactive " error. library(shiny) library(readxl) library

问题 Why when I put together several action button codes from Shiny manual (https://shiny.rstudio.com/articles/action-buttons.html), it DOES NOT run (i.e. no button reacts) ? Each code separately runs fine. How to fix it? (This is relates to this post: Convert Shiny App R code to Rmarkdown Shiny App code: with observeEvent and eventReactive) # Code from https://shiny.rstudio.com/articles/action-buttons.html library(shiny) ui <- fluidPage( # Pattern 1 - Command tags$head(tags$script(src = "message

问题 I have the following code in which there are various conditional panels in the dashboard. If we navigate from one conditional panel to next in dashboard and then go to widget and finally come back to dashboard, the dashboard is in the previous state. I want the dashboard to be refreshed(reset to original condition) when I come back from another tab panel. Is is possible to do that? library(shiny) library(shinydashboard) library(maps) library(leaflet) ui <- dashboardPage( dashboardHeader(title

问题 I want refresh data every hour in my shiny dashboard. So that the graphs in shinydashboard automatically update hourly basis. Is there any source where I can learn or any sample code to practice ? Thank you. 回答1: I have got this with invalidateLater function. In the below code i just tried to get distinct names from a MySQL table. After running the shinyApp for first time, i have added a unique row to the same table so that after the specified time(i have checked with 60000 ms) we can check

问题 Trying to make a shiny app with these properties. Default view is aggregate layer. There will be number of columns/bars. On click of a column, the view is updated to show the non-aggregated version of data. It is something like to know which bar is getting clicked and filtering the data with respect to it. I have written the below code, which does the aggregate layer. However not sure how to get the "clicked_on_this_bar" details. Here if we get, user clicked on bar of "Area A", then we can

问题 I have developed an app which takes an .wav file as input and plays it. However it seems to be not working. On the other hand, if the audio file is placed in /www folder and path name is given, it is playing fine. What am I doing wrong ? app.R library( shinydashboard ) ui = source( file.path( "ui", "ui.R" ), local = T )$value #..... ui for ocr server = function( input, output, session ){ #..... Include server logic for each tab ..... source( file.path( "server", "server.R" ), local = T )

问题 I am new to RShiny and I am trying to replicate this template: https://shiny.rstudio.com/gallery/retirement-simulation.html I do have the code for this template but this is a learning exercise. Here is what I have so far: ui <- fluidPage( # Title goes here... titlePanel("Retirement: simulating wealth with random returns, inflation and withdrawals"), p("Description here..."), hr(), # Sidebar layout... sidebarLayout( # Sidebar panel... sidebarPanel( # Input: Slider for the number of

问题 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 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