在 R Shiny 中的 FluidRow() 中对齐标签和单选按钮

Question

我试图在应用程序的同一行中对齐标签和单选按钮，但我无法实现。

这是用于显示标签和单选按钮的代码

           fluidRow(
             align = 'center',
             column(5,"Choose Metric: "),
             column(11, radioButtons("typeRadio", "",list("Project Count", "Project Efforts"), inline = TRUE))
                    
           )

但是我得到了这个输出

如何在同一行获取标签和单选按钮？

谁能提供适当的解决方案来实现预期的输出？

Answer 1

这很hacky，但这对我有用：

library(shiny)

ui <- fluidPage(
  fluidRow(
align="center",
    column(2, "Choose Metric: "),
    column(4, radioButtons("typeRadio", "",list("Project Count", "Project Efforts"), inline = TRUE))
  )
)

server <- function(input, output) {
}

shinyApp(ui = ui, server = server)

您的原始代码定义了 16 个列。这会给任何解决方案带来问题：最大列数为 12。

我的解决方案有效，因为指定 label="" 会导致 Shiny 输出标签的 HTML，该标签是不可见的（因为它是空字符串），但仍占据垂直空间。指定label=NULL 会抑制与标签关联的所有输出，因此它不占用垂直空间。

换句话说，您的解决方案确实对齐了两个小部件的顶部。只是广播组的顶部是看不见的。

顺便说一句，最好提供一个简单的、独立的示例，即使对于这样明显的设置也是如此。