shinydashboard

问题 I am using the following dataset: https://docs.google.com/spreadsheets/d/1C_P5xxzYr7HOkaZFfFiDhanqDSuSIrd2UkiC-6_G2q0/edit#gid=0 I am using ShinyDashboard and I have a selectInput that allows me to choose a specific type of Candy bar (in the Candy column in my data set). How do I take that Candy selection, and then make a graph that contains the frequency for that selected candy bar for each purchase month? In my server.R , I am not sure what to have in that CandyCount reactive element. My

问题 I need to render various menu sub-items based on some reactive data values. For each sub-item, I also need to associate linked output. I tried to link with tabName , but not sure what went wrong. Below is an example. The desired output will be one box for each menu item/sub-item. ## This code snippet doesn't do what I need ---- shinyApp( ui = dashboardPage( dashboardHeader(), dashboardSidebar( sidebarMenu( menuItemOutput("dynamic_menu"), menuItem("Menu2", tabName = "menu2") ) ), dashboardBody

问题 The script below when executed creates a process_map() with a select input. Upon selecting a resource like "r1","r2" etc. we get the corresponding process map. However I want to dynamically pass an input from the selectInput bar and update the process map within R shiny page Snapshot for your reference. Please help. ## app.R ## install.packages("bupaR") install.packages("edeaR") install.packages("eventdataR") install.packages("processmapR") install.packages("processmonitR") install.packages(

问题 Trying to make use of the Shiny dashboardplus semi-collapse sidebar, but run into some issues and would appreciate your advice. A reproducible script: library("shiny") library("htmltools") library("shinydashboard") library("shinydashboardPlus") library("bootstrap") library("shinyjs") # UI Page Starts ui = dashboardPagePlus( title = "Shiny App", dashboardHeader( title = "Title with A Few Other Things", titleWidth = 530 ), dashboardSidebar( fluidRow( useShinyjs(), column(8, align = "left",

问题 Question 1 : I tried to apply shinyDashboard package but there has no datatable display... ## Creating a parallel computing Cluster and support functions. ## Preparing the parallel cluster using the cores doParallel::registerDoParallel(cores = 16) pkgs <- c('shiny','shinydashboard','magrittr','plyr','dplyr','googleVis','quantmod','TTR','lubridate','DT','purrr') suppressMessages(require('BBmisc')) suppressMessages(lib(pkgs)); rm(pkgs) ## Set the googleVis options first to change the behaviour

问题 I am trying to build an app using R shiny where I am using fileinput and action button in same box. I am facing issues to show above two inline. Refer to below working example: library(shiny) library(shinydashboard) ui <- dashboardPage( dashboardHeader(title = "Inline Widgets Issue"), dashboardSidebar( ), dashboardBody( box(title = "Working Example",width=40 ,status = "warning", solidHeader = TRUE, collapsible = FALSE, fluidRow(column(width=8,fileInput('file1', 'Browse File',width="100%",

问题 In my code when i press load scenario button it is showing the dashboard page when load scenario button is pressed twice.I want my dashboard to appear in a single click.Can anyone help.Here is my code library("shiny") library("shinydashboard") ui <- fluidPage( actionButton("create_scenario", "Create Scenario"), actionButton("load_scenario","load scenario"), uiOutput("input"), uiOutput("inputs") ) server <- function(input, output,session) { observeEvent(input$create_scenario,{ output$input <-

问题 I have a shiny app that I made with shinydashboardPlus and shinydashboard that I would like to have the rightSidebar automatically open when the menuItem with my plots are clicked by the user. I have been trying to find an answer to this for a couple hours now and I haven't found anything. I am not sure if this is possible but I figured I'd ask on here to see if anyone has any insight on how to do this (If possible). Sample App: library(shiny) library(shinydashboard) library

问题 Upon running this script, I create a DT table with two columns "Customers_one" and "Customers_two", a selectInput and SliderInput in R shiny. I select a name from selecInput which is in the first column too and compare it with the second column and give percentage similarity between the two in the third column. My issue is that, in the last two # statements in server code, I am trying to make the table such that when slider points at a value say "75", I get rows only with similarity greater

问题 We intend to create a HTML page using R that contains two (or more) widgets. One widget holds a timeline and the other holds data table from a dataframe. We are able to create two separate HTML pages to do this as follows: library(timevis) library(htmlwidgets) data <- data.frame( id = 1:4, content = c("Item one", "Item two", "Ranged item", "Item four"), start = c("2016-01-10", "2016-01-11", "2016-01-20", "2016-02-14 15:00:00"), end = c(NA, NA, "2016-02-04", NA) ) timevis(data) htmlwidgets: