Shiny

问题 I have a large Shiny app, and I would like to provide the possibility to export a flexdashboard report. Thus, I added a downloadHandler which passes certain params to the flexdashboard. The flexdashboard itself should work without being deployed on a server, thus I do not use the runtime: shiny option. How can I pass reactive values to the flexdashboard? If I do something like params <- list(y = test()) , the report creation breaks. Relevant part of server.R: test <- reactive({ [[SOME STUFF]]

问题 I have a large Shiny app, and I would like to provide the possibility to export a flexdashboard report. Thus, I added a downloadHandler which passes certain params to the flexdashboard. The flexdashboard itself should work without being deployed on a server, thus I do not use the runtime: shiny option. How can I pass reactive values to the flexdashboard? If I do something like params <- list(y = test()) , the report creation breaks. Relevant part of server.R: test <- reactive({ [[SOME STUFF]]

问题 Since my code is long I have considered the example code from here I tried adding the following code (after last tabPanel ) from here. But no luck. tags$script(HTML("var header = $('.navbar > .container'); header.append('<div Company name text here>')")) All I want is a plain text (information) to be on the right hand side of the NavBar. 回答1: The following code gives you what you want. The main problem was with tour html tags. library(shiny) server <- function(input, output, session) { output

问题 Since my code is long I have considered the example code from here I tried adding the following code (after last tabPanel ) from here. But no luck. tags$script(HTML("var header = $('.navbar > .container'); header.append('<div Company name text here>')")) All I want is a plain text (information) to be on the right hand side of the NavBar. 回答1: The following code gives you what you want. The main problem was with tour html tags. library(shiny) server <- function(input, output, session) { output

问题 I did a popify for my radiobutton. However I would like to separate the popify in my radiobuttom options. For example, for "filter1", I would like to insert a popify for the "All properties" and other popify for "exclude properties" options. Is this possible ?? The executable code is below. library(shinyBS) library(shiny) ui <- fluidPage( titlePanel("Old Faithful Geyser Data"), sidebarLayout( sidebarPanel( popify( radioButtons("filter1", h3("Select properties"), choices = list("All properties

问题 Friends in the code below show a message alert, if the option "Exclude farms" was selected. However, I would like to know if it is possible to insert two buttons (Yes and NO) in this alert? The functionality of these buttons is still under development. The executable code is below. library(shinyWidgets) library(shiny) ui <- fluidPage( titlePanel("Old Faithful Geyser Data"), sidebarLayout( sidebarPanel( radioButtons( "filter1", h3("Select properties"), choiceValues = c(1, 2), choiceNames =

问题 Friends in the code below show a message alert, if the option "Exclude farms" was selected. However, I would like to know if it is possible to insert two buttons (Yes and NO) in this alert? The functionality of these buttons is still under development. The executable code is below. library(shinyWidgets) library(shiny) ui <- fluidPage( titlePanel("Old Faithful Geyser Data"), sidebarLayout( sidebarPanel( radioButtons( "filter1", h3("Select properties"), choiceValues = c(1, 2), choiceNames =

问题 I am trying to package a shiny app as a standalone application using electron as per: https://github.com/ColumbusCollaboratory/electron-quick-start A portable R instance is used and electron calls it to create the shiny app. I need to do this as the app I am building is for someone who doesn't have R installed and doesn't want it installed. This works great until I try to 'sourceCpp' files written in Rcpp. I get the error: Error in sourceCpp(code = code, env = env, rebuild = rebuild, cacheDir

问题 I have got a reference by leonawicz that can combine sparkline and DT perfectly(Many thanks for him). But, could you please give me a help to make a composited sparkline ? Thanks a lot!. Here is the sample code library(data.table) library(DT) library(sparkline) Data <- data.table(Type = c("A", "B", "C"), Value_1 = c("1,1,2,2", "2,2,3,3", "3,3,4,4"), Value_2 = c("0,1,2,3", "2,3,4,5", "4,5,6,7")) r <- c(0, 8) line_string <- "type: 'line', lineColor: 'black', fillColor: '#ccc',

问题 I have got a reference by leonawicz that can combine sparkline and DT perfectly(Many thanks for him). But, could you please give me a help to make a composited sparkline ? Thanks a lot!. Here is the sample code library(data.table) library(DT) library(sparkline) Data <- data.table(Type = c("A", "B", "C"), Value_1 = c("1,1,2,2", "2,2,3,3", "3,3,4,4"), Value_2 = c("0,1,2,3", "2,3,4,5", "4,5,6,7")) r <- c(0, 8) line_string <- "type: 'line', lineColor: 'black', fillColor: '#ccc',