在闪亮的仪表板中设置 bsButton 位置
Set bsButton position in shiny dashboard
我下面有一个基本的闪亮仪表板,我想知道我是否可以向左或向右移动 bs 按钮 "show/hide sidebar"。
#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) { }
取决于您是要将 "moving" 应用于特定按钮还是对所有这些按钮,您可以执行以下操作:
tags$head(
tags$style(HTML('#showpanel8{margin-left:10px}'))
)
此处,按钮由 id 引用。因此更改将仅适用于该按钮。
#showpanel8{margin-left:10px}
是 CSS 用于设置按钮样式的语法。
对于其他边距,您可以使用:
- margin-top
- margin-right
- margin-bottom
- margin-left
参见此处: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)
我下面有一个基本的闪亮仪表板,我想知道我是否可以向左或向右移动 bs 按钮 "show/hide sidebar"。
#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) { }
取决于您是要将 "moving" 应用于特定按钮还是对所有这些按钮,您可以执行以下操作:
tags$head(
tags$style(HTML('#showpanel8{margin-left:10px}'))
)
此处,按钮由 id 引用。因此更改将仅适用于该按钮。
#showpanel8{margin-left:10px}
是 CSS 用于设置按钮样式的语法。
对于其他边距,您可以使用:
- margin-top
- margin-right
- margin-bottom
- margin-left
参见此处: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)