我下面有一个基本的闪亮仪表板,我想知道我是否可以左右bs按钮“显示/隐藏侧栏”。
#ui.r
library(shinydashboard)
library(shiny)
library(shinyBS)
dashboardPage(
dashboardHeader(),
dashboardSidebar(disable = TRUE),
dashboardBody(
tabsetPanel(
id = 'testingDPEtab',
tabPanel("Upload",
bsButton("showpanel8", "Show/Hide sidebar",icon = icon("toggle-off"), type = "toggle",style = "info", value = TRUE),
dashboardPage(
dashboardHeader(),
dashboardSidebar(),
dashboardBody())
)
)
))
#server.r
server <- function(input, output) { }
答案 0 :(得分:1)
根据是要对特定按钮应用“移动”还是对所有这些按钮都可以进行操作,
tags$head(
tags$style(HTML('#showpanel8{margin-left:10px}'))
)
此处,该按钮由id引用。因此更改仅适用于该按钮。
#showpanel8{margin-left:10px}
是样式化按钮的CSS语法。
对于其他利润,您可以使用:
请参见此处:https://www.w3schools.com/css/css_margin.asp。
完整的示例:
library(shinydashboard)
library(shiny)
library(shinyBS)
ui <- dashboardPage(
dashboardHeader(),
dashboardSidebar(disable = TRUE),
dashboardBody(
tags$head(
tags$style(HTML('#showpanel8{margin-left:10px}'))
),
tabsetPanel(
id = 'testingDPEtab',
tabPanel("Upload",
bsButton("showpanel8", "Show/Hide sidebar",
icon = icon("toggle-off"), type = "toggle",
style = "info", value = TRUE),
dashboardPage(
dashboardHeader(),
dashboardSidebar(),
dashboardBody())
)
)
))
#server.r
server <- function(input, output) { }
shinyApp(ui, server)