Shiny

问题 I have a shiny dashboard below and I would like to know if there is a way to keep left and right sidebar hidden by default when a specific tab is selected. In this case the tab 'Front' . I did it with shinyJs() .Is there a way to also hide the 'gear' icons and the ability to open the right sidebar at all from the "Front" ? More specifically when the user is in the Fron t tab the right sidebar display which is enabled when he clicks on the gear icon in the top right corner should not be

问题 What is the Shiny default font? Where to look it up? library(shiny) ui <- fluidPage("What font is used here?") server <- function(input, output, session) {} shinyApp(ui, server) 回答1: Well using the HTML inspect tool in Internet Explorer we find that Shiny is using "Helvetica Neue",Helvetica,Arial,sans-serif as default text-font and as @Caramiriel already mentioned is this taken from bootstrap.min.css 来源： https://stackoverflow.com/questions/48028990/what-is-the-shiny-default-font

问题 What is the Shiny default font? Where to look it up? library(shiny) ui <- fluidPage("What font is used here?") server <- function(input, output, session) {} shinyApp(ui, server) 回答1: Well using the HTML inspect tool in Internet Explorer we find that Shiny is using "Helvetica Neue",Helvetica,Arial,sans-serif as default text-font and as @Caramiriel already mentioned is this taken from bootstrap.min.css 来源： https://stackoverflow.com/questions/48028990/what-is-the-shiny-default-font

问题 What is the Shiny default font? Where to look it up? library(shiny) ui <- fluidPage("What font is used here?") server <- function(input, output, session) {} shinyApp(ui, server) 回答1: Well using the HTML inspect tool in Internet Explorer we find that Shiny is using "Helvetica Neue",Helvetica,Arial,sans-serif as default text-font and as @Caramiriel already mentioned is this taken from bootstrap.min.css 来源： https://stackoverflow.com/questions/48028990/what-is-the-shiny-default-font

问题 We need to create a hierarchical drop-down list in R shiny. The list will have at least 3 levels. Could you please help me in identifying the correct library for this? Please refer the below pic for your reference.Currently we are using the below code.But we are getting incorrect columns in the drop-down. ui.R library(shiny) library(shinydashboard) library(shinyTree) shinyUI( shiny::fluidPage( h3('Countries '), shinyTree("tree", checkbox = TRUE), verbatimTextOutput("x") ) ) server.R library

问题 We need to create a hierarchical drop-down list in R shiny. The list will have at least 3 levels. Could you please help me in identifying the correct library for this? Please refer the below pic for your reference.Currently we are using the below code.But we are getting incorrect columns in the drop-down. ui.R library(shiny) library(shinydashboard) library(shinyTree) shinyUI( shiny::fluidPage( h3('Countries '), shinyTree("tree", checkbox = TRUE), verbatimTextOutput("x") ) ) server.R library

问题 Note: This (lengthy) question is a follow-up to my previous post. I would like to achieve the encryption of data locally (local RStudio) and decrypt the encrypted data remotely (application hosted on shinyapps.io) . The first part of the code intrinsically encrypts a data-frame using a key . The second part of the code is a shiny application that decrypts the data-frame using the same key and thereby using this data-frame for authentication purposes within the application. The code works just

问题 Is it possible to centre three images in one row within the shiny ui fluidPage AND have the width of each image fixed at 300px? To get: One idea I had was to use splitLayout and somehow insert an image as a function of window width but I am not sure how to acheive this. I understand you can use splitLayout to set the images as a % of window, however I specifically want the middle image to be 300px. fluidPage(fluidRow( splitLayout(cellWidths = c("34%", 300, "34%"), cellArgs = list(style =

问题 Ok my title is a little bit confusing but let me explain. I am using renderUI to get an audio tag, however, I want to start the audio at a lower volume because it is simply too loud. The code below works fine, except because I added the delay it starts off at a higher volume and quickly goes to the lower volume but it is still very noticeable. Lowering the delay does not help, I've tried. If I remove the delay, the two observeEvents will run simultaneously and the volume will not be changed.

问题 Is it possible to add dynamically a new item in a shiny accordion, for example when clicking on a button ? below a non-working example using dq_accordion from the dqshiny package Thanks ! library(shiny) library(dqshiny) shinyApp( ui = fluidPage( fluidRow( actionButton("add", "+"), dq_accordion("myAccordion", titles = paste0("input",1:3), contents = list(textInput(inputId = "txt1", label = ""), textInput(inputId = "txt2", label = ""), textInput(inputId = "txt3", label = "")), bg_color = NULL,