Выровнять флажки слева по одному столбцу на блестящей боковой панели - PullRequest
Новая
       33

Выровнять флажки слева по одному столбцу на блестящей боковой панели

0 голосов
/ 04 июля 2019

Новичок в R / Shiny, я пытаюсь создать группы флажков в боковой панели Shiny, где варианты находятся в одном столбце и выровнены по левому краю.

Кроме того, есть ли способ удалить пробел / пробел между первым и вторым флажком?

Я пытался включать и выключать "inline", но это не похоже на,Из того, что я вижу на форумах, для ответа может потребоваться HTML / CSS, но я не уверен, как интегрировать это в группу боковой панели / флажков.

Вот как код выглядит в настоящее время: 

library(shiny)
library(shinydashboard)

sidebar <- dashboardSidebar(
    checkboxGroupInput( inputId='ABC', label='ABC', choices= c('A','B','C'), inline=TRUE )
    ,checkboxInput('bar0','All/None', value=TRUE))

header <- header <- dashboardHeader(
  title = "aligned column",titleWidth = 300)

body <- dashboardBody()

ui <- dashboardPage(title = 'aligned column', header, sidebar, body)

server <- function(input, output,session) { 
  ## All/None buttons on selections ----
  observeEvent( input$bar0, {
    updateCheckboxGroupInput(
      session, 'ABC', choices = c('A','B','C'), inline=TRUE,
      selected = if (input$bar0) choices = c('A','B','C'))})
}

shinyApp(ui, server)

Спасибо!

1 Ответ

0 голосов
/ 04 июля 2019

Здравствуйте, Адам, вы пытались изменить inline = FALSE в разделе сервера? Вот так: 

server <- function(input, output,session) { 
        ## All/None buttons on selections ----
        observeEvent( input$bar0, {
                updateCheckboxGroupInput(
                        session, 'ABC', choices = c('A','B','C'), inline=FALSE,
                        selected = if (input$bar0) choices = c('A','B','C'))})
}

Кажется, это сработало для меня. Если я понимаю ваш вопрос, это то, что вы хотели сделать правильно? Скриншот

...