shinydashboard

问题 This seems like a very simple question, but I have searched and searched! I am using selectize to select multiple items from a list in a selectInput dropdown menu. Below it I have a Submit button to perform some action on the list. As you add multiple entries, the selectInput box grows, and the button dynamically moves down the sidebar, but when you open the dropdown menu to see the list of options, the Submit button is hidden. I would like the button to dynamically jump down and stay visible

问题 This seems like a very simple question, but I have searched and searched! I am using selectize to select multiple items from a list in a selectInput dropdown menu. Below it I have a Submit button to perform some action on the list. As you add multiple entries, the selectInput box grows, and the button dynamically moves down the sidebar, but when you open the dropdown menu to see the list of options, the Submit button is hidden. I would like the button to dynamically jump down and stay visible

问题 This seems like a very simple question, but I have searched and searched! I am using selectize to select multiple items from a list in a selectInput dropdown menu. Below it I have a Submit button to perform some action on the list. As you add multiple entries, the selectInput box grows, and the button dynamically moves down the sidebar, but when you open the dropdown menu to see the list of options, the Submit button is hidden. I would like the button to dynamically jump down and stay visible

问题 For convertMenuItem, see reference here: https://stackoverflow.com/a/48212169 When I try to get the name of expanded menuItem, it doesn't work. Here's a standalone example: library(shiny) library(shinydashboard) convertMenuItem <- function(mi,tabName) { mi$children[[1]]$attribs['data-toggle']="tab" mi$children[[1]]$attribs['data-value'] = tabName if(length(mi$attribs$class)>0 && mi$attribs$class=="treeview"){ mi$attribs$class=NULL } mi } ui <- dashboardPage( dashboardHeader(),

问题 I am trying to develop a shinydashboard application. As users select their dataset and variables, I provide the option to select the order, color and shape. However, in the pickerInput I am also providing another (4th) item which is the value of the variable selected for which the order, color and shape has been assigned. I need this 4th item/variable for further processing, such as, subsetting data. I would like to hide this 4th item or disable the option for users of the app to select, as

问题 I am trying to develop a shinydashboard application. As users select their dataset and variables, I provide the option to select the order, color and shape. However, in the pickerInput I am also providing another (4th) item which is the value of the variable selected for which the order, color and shape has been assigned. I need this 4th item/variable for further processing, such as, subsetting data. I would like to hide this 4th item or disable the option for users of the app to select, as

问题 I have a problem with text in Shiny Dashboard. I would like to save original text formatting, but shiny removes the whitespaces I want to keep. output$frame <- renderUI({ HTML(paste( p(strong("Name and Surname:"),(" John Smith")) ) ) }) tabItem(tabName = "aaa", h2("bbb"), fluidRow( box(width = 6, solidHeader = TRUE, htmlOutput("frame")) ) ), Unfortunately I get "Name and Surname: John Smith". I wish to have "Name and Surname: John Smith" . How to solve this problem? 回答1: You can use HTML(' ')

问题 I have a shinydashboard with a rightsidebar enabled when you press the icon on top right of the app. I would like to remove this darker space above the slider. Is that possible? library(shiny) library(shinydashboard) shinyApp( ui = dashboardPagePlus( header = dashboardHeaderPlus( enable_rightsidebar = TRUE, rightSidebarIcon = "gears" ), sidebar = dashboardSidebar(), body = dashboardBody(), rightsidebar = rightSidebar( background = "dark", sliderInput( "obs", "Number of observations:", min = 0

问题 I would like to display an Rmd file with LaTeX equations in my shiny dashboard app. I've run into problems using includeMarkdown() and includeHTML() . Here is a simplified app of what I'm trying to achieve. Here is my app.R: library(shinydashboard) ui <- dashboardPage( dashboardHeader(title='My test application'), dashboardSidebar( sidebarMenu( menuItem("Theory", tabName = "theory", icon = icon("book")) ) ), dashboardBody( tabItems( tabItem(tabName="theory", includeMarkdown("Theory.Rmd")

问题 I want to display a table of data in a pop-up window by clicking on valueBox . The valueBox itself should work as an actionButton . When I click on the valueBox it should render a table in pop-up window as in the picture below. Can anyone help on this code? My code: library(shiny) library(shinydashboard) data <- iris ui <- dashboardPage( dashboardHeader(title = "Telemedicine HP"), dashboardSidebar(), dashboardBody( fluidRow( valueBox( 60, subtitle = tags$p("Attended", style = "font-size: 200%