shinydashboard切换框-默认情况下隐藏
这是一个后续行动。答案提供了一个默认显示框的选项,但是如何将其更改为默认隐藏? 下面是两个答案的混合代码shinydashboard切换框-默认情况下隐藏,r,shiny,shinydashboard,R,Shiny,Shinydashboard,这是一个后续行动。答案提供了一个默认显示框的选项,但是如何将其更改为默认隐藏? 下面是两个答案的混合代码 library(shiny) library(shinydashboard) library(shinyjs) ui <- fluidPage( sidebarLayout( sidebarPanel( useShinyjs() ), mainPanel( box(id = "myBox", title = "Tree Output
library(shiny)
library(shinydashboard)
library(shinyjs)
ui <- fluidPage(
sidebarLayout(
sidebarPanel(
useShinyjs()
),
mainPanel(
box(id = "myBox", title = "Tree Output", width = '800px',
selectInput(inputId = "myInput", label = "my input", choices = c(letters))
),
actionButton(inputId = "button", label = "show / hide")
)
)
)
server <- function(input, output){
## observe the button being pressed
observeEvent(input$button, {
shinyjs::toggle("myBox")
})
}
shinyApp(ui, server)
库(闪亮)
图书馆(shinydashboard)
图书馆(shinyjs)
ui您可以将它包装在另一个div
上,并使用shinyjs
中的hidden
函数
library(shiny)
library(shinydashboard)
library(shinyjs)
ui <- fluidPage(
sidebarLayout(
sidebarPanel(
useShinyjs()
),
mainPanel(
hidden(
div(id = "mybox_wrapper",
box(id = "myBox", title = "Tree Output", width = '800px',
selectInput(inputId = "myInput", label = "my input", choices = c(letters))
)
)),
actionButton(inputId = "button", label = "show / hide")
)
)
)
server <- function(input, output){
## observe the button being pressed
observeEvent(input$button, {
shinyjs::toggle("mybox_wrapper")
})
}
shinyApp(ui, server)
库(闪亮)
图书馆(shinydashboard)
图书馆(shinyjs)
用户界面