shinydashboard

问题 I am using the shinyjs package in R to allow for onclick type events to navigate between tabs in a tabset. Each tab has a specific sidebar, and there are multiple (two) ways of getting between each tab (i.e. via clicking on the tab itself or by clicking on the valueBoxes). I would like to ensure that no matter what way you get to a specific tab the correct sidebar loads. # load libraries require(shiny) require(shinydashboard) require(shinyjs) # create a simple app ui <- dashboardPage( title=

问题 This question already has answers here : R Shiny set DataTable column width (2 answers) Closed 9 months ago . I am building a Shiny dashboard and one panel on the dashboard is a DataTable. Below is my code: output$table = DT::renderDataTable(b1, selection = 'single') The width of columns in the data table is now adjusted with the width of column name. However, some cell values are text, and those text are squeezed to display in multiple lines as they are longer than the column names. I am

问题 This is my first ever Shiny App. I have already created a reactive expression which imports a data i.e data1() and followed by an observe expression to determine the two columns selected. Another reactive expression makes data2() which shows the data that is been formed in the above observe event. I want to use the data created in function data2() for further computation, but i am unable to use it. I want to use the data of data2() as a dataframe in my observeEvent function. But i am unable

问题 I am trying to implement zoom on my shiny dashboard as the layout looks better when it is at 80% zoom for the web browser. I found an article on SO, however, it doesn't work for Shinydashboard . When I implement the CSS , I get a lot of dead white space. Article to SO: Zoom out shiny app at default in browser Simple Code Example: library(shiny) library(shinydashboard) header <- dashboardHeader() sidebar <- dashboardSidebar() body <- dashboardBody( tags$style(" body { -moz-transform: scale(0.8

问题 When I use uiOutput in a menuSubItem , the dropdown menu that I'm trying to dynamically render does not show up. Is this not supported or am I doing something wrong? Here's a reproducible example: ### ui.R library(shiny) library(shinydashboard) # Create dashboard header header <- dashboardHeader() # Create dashboard sidebar sidebar <- dashboardSidebar( sidebarMenu( menuItem(text="test1", tabName="test1", menuSubItem(icon=NULL, selectInput("x", "X", c("a", "b", "c"), selected="a")),

问题 Objective Increase UX fluidity by decreasing wait time. Problem I am building a data exploration dashboard. There are two tabs: 1) (default tab) a tab showing a datatable, and 2) a tab showing ggplots. A user can explore the data by selecting options from the sidebar (e.g. choose how many points you want to display). The table reactively updates upon a change, but the ggplot on the other tab doesn't - until the tab is selected, only then is the ggplot drawn . This is annoying as the data was

问题 In the dashboardHeader function of shinydashboard, you can add multiple menus, such as a drop down menu of notifications. When a notification is displayed, it is natural for the user to click on a specific notification, so as to get more information or to take some action. I'd like to be able to detect which notificationItem the user has clicked on, and do some things based on that (e.g. update a map, show a table with the data relevant to that notification, etc.). here's what I hoped would

问题 The shiny app below is taken out of gallery. It allow user to choose a variable, build a linear regression and download report. What if I do not know in advance how many plots and models user wants to build and include into report. Is it possible to create a report with dynamically added plots? Server.R function(input, output) { regFormula <- reactive({ as.formula(paste('mpg ~', input$x)) }) output$regPlot <- renderPlot({ par(mar = c(4, 4, .1, .1)) plot(regFormula(), data = mtcars, pch = 19)

问题 I am trying to implement zoom on my ShinyDashboard as the layout looks better when it is at 80% zoom for the web browser. I found an article on SO for a Shiny app, however, it doesn't work for Shinydashboard . When I implement the CSS, I get a lot of dead white space. Article to SO: Zoom out shiny app at default in browser Simple Code Example: library(shiny) library(shinydashboard) header <- dashboardHeader() sidebar <- dashboardSidebar() body <- dashboardBody( tags$style(" body { -moz

问题 I have create an app using shinydashboard with a group of menuItems and menuSubItems as well as the coresponding tabItems, and there is a conditionalPanel with different input parameters for each menuSubItems, and an actionButton for different analysing and ploting task, now it works before the actionButton is clicked, that is, the conditionalPanel changed when switching between menuSubItems, and it also works well for the first time actionButton is clicked, that is it show a plot html as