r - 在 Shiny radioButtons 的同一行显示标签和选项

Question

我希望标签和选项都显示在 Shiny 的单选按钮的同一行上。

我努力了：

tags$div(tags$span(radioButtons("id",label = "Label:",choices = c("All "="all","Option One"="option1","Option Two"="option2"),inline=TRUE)))

有和没有 "tags$div(tags$span(" 片断。

我希望结果是：

Label: ()All ()Option One () Option two

相反，我仍然得到

 Label:
 ()All ()Option One () Option two

有什么建议么？

标签： rshinyradio-buttonlabelchoice

Answer 1

尝试float: left

所以它会是这样的：

library(shiny)

ui <- fluidPage(
  tags$head(
    tags$style(
      HTML(
        "
        label{
          float:left;
        }
      "
      ))),

      radioButtons("id1",label = "Label:",choices = c("All "="all","Option One"="option1","Option Two"="option2"),inline=TRUE)

)

server <- function(input, output) {

}

shinyApp(ui, server)