r - 在闪亮的仪表板中设置 bsButton 位置
问题描述
我在下面有一个基本的闪亮仪表板,我想知道我是否可以稍微向左或向右 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) { }
解决方案
根据您是否要将“移动”应用于特定按钮或所有这些按钮,您可以执行以下操作:
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)
推荐阅读
- r - 将数据集从长数据集重新格式化为宽数据集
- postgresql - pg_basebackup 所需的磁盘空间
- selenium - 为量角器测试启用 Popups chrome 浏览器
- kubernetes - 卡夫卡经纪人继续重启?
- html - 即使我需要在表单中进行验证,也会在表单上提交空字段?
- python - 文件未找到错误:
- python - 尝试 openweathermap python api 教程时出现关键错误“主要”
- python - Python 得到 SettingWithCopyWarning - iloc 与 loc - 无法弄清楚原因
- android - 字体系列看起来都一样/不起作用 - android
- javascript - 为什么 Firefox 和其他浏览器在我尝试初始化多个组件时冻结,但在 Chrome 上却没有?