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

Question

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

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

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

但我得到了这个输出

如何让label和radioButton在同一行？

任何人都可以提供适当的解决方案来实现预期的输出吗？

Answer 1

这很老套，但这对我有用：

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，该标签不可见（因为它是空字符串），但仍然占据垂直 space .指定 label=NULL 会抑制与标签关联的所有输出，因此它不占用垂直 space.

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

顺便说一下，最好始终提供一个简单、独立的示例，即使对于像这样显而易见的设置也是如此。

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

Aligning the label and radioButton in a fluidRow() in R Shiny

r

alignment

shiny