Добавить вертикальную полосу прокрутки к кнопке выпадающего списка глянцевый - блестящий - PullRequest
Новая
       22

Добавить вертикальную полосу прокрутки к кнопке выпадающего списка глянцевый - блестящий

0 голосов
/ 17 мая 2018

Я использую ниспадающую кнопку brightjs для отображения радиокнопок на Shinydashboard.Мне нужна ваша помощь в следующем вопросе,

Добавьте вертикальную полосу прокрутки для выпадающего списка.

Пожалуйста, проверьте мой код, 

library(shiny)
library(shinydashboard)
library(shinyjs)

ui <- dashboardPage(skin = "black",
                    dashboardHeader(title = "test"), 
                    dashboardSidebar(),
                    dashboardBody(
                                fluidRow(
                                  column(width = 1),
                                  dropdownButton(
                                    tags$h3("List of Input"),
                                    radioButtons("attr_var","", c("1","2","3","4","5","6","7","8")),
                                    circle = TRUE, status = "danger", icon = icon("gear"), width = "100px",
                                    tooltip = tooltipOptions(title = "Click to see inputs")))))

server <- function(input, output, session) { }

shinyApp(ui, server)

Заранее спасибо, SJB.

1 Ответ

0 голосов
/ 17 июля 2018

Ответ довольно поздний, но хитрость заключается в том, чтобы установить значения max-height и overflow-y внутри dropdownButton.Ваш код может выглядеть так: 

dropdownButton(
    circle = TRUE, status = "danger", icon = icon("gear"), width = "100px",
    tooltip = tooltipOptions(title = "Click to see inputs")))),
    div(style='max-height: 80vh; overflow-y: auto;',
    tags$h3("List of Input"),
    radioButtons("attr_var","", c("1","2","3","4","5","6","7","8"))))
...