R / Shiny selectВведите размер виджета

Question

R / Shiny selectВведите размер виджета

1

Я хочу изменить размер виджета selectInput() в блестящем состоянии. Я знаю, что он основан на selectize.js, поэтому я попытался изменить каждый отдельный атрибут на этой странице (/selectize.css)

и не может понять, какой из них контролирует высоту. Но я не знаю CSS или javascript. Какие-либо предложения?

Минимальный пример:

library(shiny)

ui <- fluidPage(
    fluidRow(
        actionButton('play_but', 'Play', style='height: 20px; font-size: 10px; padding: 1px 1px;'),
        actionButton('pause_but', 'Pause', style='height: 20px; font-size: 10px; padding: 1px 1px;'),
        selectInput("speed", label=NULL, choices = list("1" = 1, "2" = 2), selected = 1),
        tags$head(tags$style(HTML(".selectize-input {max-height: 5px !important; font-size: 10px; padding: 1px 1px; box-sizing: content-box;}"))),
        tags$head(tags$style(HTML(".selectize-input input {line-height: 10px;}"))),
        tags$head(tags$style(HTML(".selectize-dropdown-content {font-size: 10px; }")))
        )
    )

shinyApp(ui, server)

производит:

Lee88 28 фев. 2018, в 07:27

Источник

Теги:

javascript

r

css

shiny

1 ответ

Ещё вопросы

Mahdi Baghbanzadeh · Accepted Answer · 2018-02-28T06-11-00.000Z

попробуйте это и получайте удовольствие:

    library(shiny)

    ui <- fluidPage(
      fluidRow(

        selectInput("speed", label=NULL, choices = list("1" = 1, "2" = 2), selected = 1),
        tags$head(tags$style(HTML(".selectize-input {height: 100px; width: 500px; font-size: 100px;}")))
      )

)
server <- function(input, output){}
shinyApp(ui, server)