Выравнивание метки и radioButton в fluidRow () в R Shiny

Question

Я пытаюсь выровнять метку и переключатель в одной строке в приложении, но мне не удается этого добиться.

Это код, используемый для отображения метки и переключателя

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

Но я получаю этот вывод

введите описание изображения здесь

Как я могу разместить метку и 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 для метки, которая невидима (потому что это пустая строка. ), но по-прежнему занимает вертикальное пространство. Указание label=NULL подавляет весь вывод, связанный с меткой, и, следовательно, он не занимает вертикального пространства.

Другими словами, ваше решение действительно выравнивает верхние части двух виджетов. Просто верхняя часть радиогруппы невидима.

Кстати, всегда лучше предоставить простой, самодостаточный пример, даже для такой очевидной настройки, как эта.