时间戳

首页 > 解决方案 > R Shiny 从下到上显示 SelectInput 的值

r - R Shiny 从下到上显示 SelectInput 的值

问题描述

是否可以在输入上方而不是默认情况下显示 SelectInput 的值？

这是一个可复制的示例：

shinyApp(
  ui = fluidPage(
    br(),
    br(),
    br(),
    br(),
    br(),
    br(),
    br(),
    br(),
    br(),
    br(),
    br(),
    selectInput("state", "Choose a state:",
                list(`East Coast` = list("NY", "NJ", "CT"),
                     `West Coast` = list("WA", "OR", "CA"),
                     `Midwest` = list("MN", "WI", "IA"))
    ),
    textOutput("result")
  ),
  server = function(input, output) {
    output$result <- renderText({
      paste("You chose", input$state)
    })
  }
)

标签： rshiny

解决方案

这是一个CSS解决方案：

CSS <- "
.selectize-dropdown {
  bottom: 100% !important; 
  top: auto !important;
}
"

shinyApp(
  ui = fluidPage(
    tags$head(
      tags$style(HTML(CSS))
    ),
    br(),
    br(),
    br(),
    br(),
    br(),
    br(),
    br(),
    br(),
    br(),
    br(),
    br(),
    selectInput("state", "Choose a state:",
                list(`East Coast` = list("NY", "NJ", "CT"),
                     `West Coast` = list("WA", "OR", "CA"),
                     `Midwest` = list("MN", "WI", "IA"))
    ),
    textOutput("result")
  ),
  server = function(input, output) {
    output$result <- renderText({
      paste("You chose", input$state)
    })
  }
)

推荐阅读