r - 在 Shiny 的 pickerInput 中将答案下拉框移到右侧

Question

我想将我的蓝色框移到句子的右侧，我在 Shiny 应用程序中使用 pickerinput，这是我的代码：o 你知道我怎样才能移到正确的部分吗？或者我应该使用什么输入去做这个？

谢谢 ！！

pickerInput(inputId = "answer11_",
                                     
            label = "Additional Side A defense limit: Minimum $500,000, $1,000,000 for larger risks",
            choices = c("Yes", "Minor Deficiency", "Mayor Deficiency", "No"),
            options = list(
            style = "btn-primary"))

Answer 1

是的，你可以设置inline = TRUE

# Basic usage
library("shiny")
library(shinyWidgets)

ui <- fluidPage(
  pickerInput(
    inputId = "somevalue",
    label = "A label",
    choices = c("a", "b"),
    inline = TRUE
  ),
  verbatimTextOutput("value")
)

server <- function(input, output) {
  output$value <- renderPrint(input$somevalue)
}

shinyApp(ui, server)