shinydashboard

问题 I am making a Shiny App in which, at the click of the actionButton, a model is trained using the caret package. As this training takes time - approximately 4-5 minutes - I wanted to display a loading sign or a loading GIF in the App where results are displayed after the model is trained. Otherwise, the User wouldn't know what is happening or when the model is trained. Thanks 回答1: There is loading spinner which you can use in your ui.R # loading the library library(shinycssloaders) withSpinner

问题 I have a QA Shiny Dashboard app that has a master dataset that must filter the rows used in subsequent tables / maps according to user login details. For example: if the user logs in with a particular username (location@email.com) then the reactive function selects rows that contain this username and passes these to the shiny app for rendering. Example of basic premise: username <- "location@email.com" new_dataset <- filter(dataset, column %like% username output$table <- renderTable ({ new

问题 I am uploading one csv file and to standardize the code I want to change the column names. so I am using following code: Prv_mnth_so1 <- reactive({data.frame(lapply(data_uploaded1(),trimws))}) colnames(Prv_mnth_so1()) <- c("GST_ward","Category","order_and_section","combo") but this throws an error Warning: Error in <-: invalid (NULL) left side of assignment 52: server [#12] Error in colnames(Prv_mnth_so1()) <- c("GST_ward", "Category", "order_and_section", : invalid (NULL) left side of

问题 I am trying to figure out as I select input in UI to immediately reflect the results on page. My search results led me to look into reactive expression and reactive values. But as I am trying to filter the value on data, I think it is causing some complication yet I have no clue what I am supposed to do with this. It seems like the filter function doesn't seem to work though. This is the error message: Warning: Error in UseMethod: no applicable method for 'filter_' applied to an object of

问题 I am adding clickable icons in my shiny app to show a popup information box. Please see the following screenshot and code example. My strategy is to wrap my text and the code for actionLink in the HTML function. This works well. However, the size of the icon is determined by the size of the associated. I would like to know if it is possible to make all the icons the same size, such as the smallest one associated with the selectInput ? The documentation (https://shiny.rstudio.com/reference

问题 How can I put an image,title and buttons in the same line inside the header of a shiny dashboard? It looks like that the title remains hidden above the buttons but it is supposed to be between image and button since I use tags$li() . library(shiny) library(shinydashboard) library(shinydashboardPlus) library(shinyjs) mytitle <- paste0("Life, Death & Statins") dbHeader <- dashboardHeaderPlus( titleWidth = "0px", tags$li(a(href = "http://https://www.uow.edu.au/", # '', div(style = "margin-left:

问题 is it possible to stop the right hand sidebar in shinydashboardPlus from hiding part of the main body the app? The default behaviour for a regular left sidebar panel is not to hide any part of the main body of the app. For example, in the below the left sidebar is clicked and the plot is moved to the right (you can see all parts of the plot). With the right sidebar panel is clicked this behaviour does not happen (see below screenshot). The sidebar is clicked and the plot is partially hidden

问题 In Shiny Dashboard in a Tab I am plotting graphs one below the another, based on the selection of checkbox inputs. When the check boxes are selected accordingly the graphs will get displayed one below the another. Kindly find the code below which i used. library(shiny) library(shinydashboard) library(shinyWidgets) library(dplyr) d <- data.frame( year = c(1995, 1995, 1995, 1996, 1996, 1996, 1997, 1997, 1997), Product_Name = c( "Table", "Chair", "Bed", "Table", "Chair", "Bed", "Table", "Chair",

问题 I have quite complicated shiny app whose all menuItems are rendered inside the server part. It's been necessary to do. And now I can't find the solution how to select opened the first subitem in menu. The first page is just blank. library(shiny) library(shinydashboard) ui <- dashboardPage( dashboardHeader( title = "Shiny" ), dashboardSidebar( sidebarMenu( menuItemOutput("Section_1") ) ), dashboardBody( tabItems( tabItem("report_1",h1("a")), tabItem("report_2",h1("b")), tabItem("report_3",h1(

问题 Working with a Shiny Dashboard, ui.r, server.r and several r scripts that contain functions. Base problem is: I have two data sets that I bring into the server.r and I pass those to a function the prepares/cleanses the data sets and then binds them together and should return a complete dataframe. The dataFrame should be reactive. Here is what I have so far: In the server.r I load the data prior to the function(input, output, session). Then I have: ################server.r code ###############