Установить позицию bsButton в блестящей панели - PullRequest
Новая
       40

Установить позицию bsButton в блестящей панели

0 голосов
/ 21 мая 2019

У меня есть базовая блестящая панель инструментов внизу, и я хотел бы знать, могу ли я чуть-чуть влево или вправо нажать кнопку 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) { }

1 Ответ

1 голос
/ 21 мая 2019

В зависимости от того, хотите ли вы применить «перемещение» к определенной кнопке или для всех этих кнопок, вы можете сделать: 

tags$head(
  tags$style(HTML('#showpanel8{margin-left:10px}'))
)

Здесь на кнопку ссылается идентификатор.Таким образом, изменение будет применяться только к этой кнопке.#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)
...