shinydashboard

问题 I have hopefully a simple problem to pass a tags ordered list to in a Shiny Dashboard. What I'd like to do is have a function that makes an ordered list of bullet points based upon on a filtered category. Here is a trivial example of what I'd like to be able to do with a data frame called nba_teams teams conference Bulls Eastern Nuggets Western Celtics Eastern Lakers Western Now if I write this function it will break out the list for the respective conferences: for (row in 1:nrow(nba_teams)){

问题 When including a dropdown in a header with message or notification items it automatically displays the sentence "You have 1 messages" upon click. How can I only show the message but not the sentence "You have 1 messages"? example to reproduce below: ui <- dashboardPage( dashboardHeader(dropdownMenu(type = "messages", messageItem( from = "Sales Dept", message = "Sales are steady this month." ))), dashboardSidebar(), dashboardBody() ) server <- function(input, output) { } shinyApp(ui, server)

问题 In http://shiny.rstudio.com/articles/dynamic-ui.html, it shows how to use renderUI to call UI function in server; but it doesn't work for dashboardpage. I guess the problem stays at the class of dashboardpage while renderUI generates a different class of object??? could this problem be fixed? I used these codes to test renderUI on dashboardpage: shinyApp( ui<-(uiOutput("x",replace=T)), server<-function(input,output){ output$x<- renderUI(dashboardPage( dashboardHeader(), dashboardSidebar(),

问题 I am facing error while trying to deploy shiny app to shinyapps.io. Please suggest the workaround deployApp(appName = "tweethunt") Preparing to deploy application...DONE Uploading bundle for application: 102109...DONE Deploying bundle: 451828 for application: 102109 ... Waiting for task: 181773387 building: Parsing manifest building: Building image: 444041 building: Installing system dependencies ################################ Begin Task Log ################################ [2016-05-15T05

问题 I am creating a simple shiny app with some valuebox and three datatables. If I design the app without using tabpanel everything works fine. library(shiny) library(shinydashboard) library(DT) ui <- dashboardPage( dashboardHeader(title = "Dynamic boxes"), dashboardSidebar(), dashboardBody( fluidRow( valueBoxOutput("vbox1", width = 2), valueBoxOutput("vbox2", width = 2), valueBoxOutput("vbox3", width = 2), valueBoxOutput("vbox4", width = 2), valueBoxOutput("vbox5", width = 2), valueBoxOutput(

问题 I am using highcharter and I want to be able to add a click event to my graph that when I click on a bar (whether its top level or drilldown), it filters the data table below it to contain the same information. I've checked this SO question which shows how to implement the the Java to R to contain a click function but not how to use that information to filter data / choose the correct data set. Hyperlink bar chart in Highcharter Any help would be greatly appreciated! An example code is below:

问题 I am trying to put a shinydashboard together and have a Google Places Search box as a text input. The code below runs in a regular shiny page, but throws an InvalidValueError: not an instance of HTMLInputElement error when it's put into a shinydashboard . (See image below) I'm not sure why it would work in a regular shiny app but not inside a shinydashboard . Screenshot of error: Minimal reproducible code example: Note: Plug in your Google API key first library(shiny) library(googleway)

问题 I hope you're well. I am trying to create a shiny dashboard whereby a user is able to update one rhandsontable from another. My code is as follows: library(shiny) library(rhandsontable) channel <- c("TV","Radio","Digital") start.date <- as.Date("2017-01-01") end.date <- as.Date("2017-01-07") date.range <- as.POSIXct((seq(start.date,end.date,by="day")), origin = "1970-01-01") date.range <- as.data.frame(date.range) colnames(date.range) <- c("date") date.range[channel] <- 0 table1 <- date.range

问题 I have constructed a dummy app here that produces hover messages for ggplot, and to make sure they stay within the screen boundaries, I wrote some calculations to determine the needed css corrections and send those to the server. It is based on the first attempt to keep hover messages in place here: SOquestion Since then I have changed to sending modified css code to alter the offset of the tooltip. The problem is however, it seems, that the table is build before the the css is send to the

问题 I have a couple of charts in my Main Panel in my Shiny Dashboard , and I was wondering how to extend the whitespace at the bottom of the main panel? How should I modify my ui.R to do this? dashboardBody( tabItems( tabItem("dashboard", mainPanel( showOutput("plot3", "Nvd3"), showOutput("plot4", "Nvd3") )), Update: Adding HTML("<br><br><br>") in the Main Panel only created a wider dark panel: 回答1: Use CSS, in your ui.R file add: tags$head( tags$style( HTML("#dashboard{margin-bottom:50px;}") ) )