Радио кнопки и выбор входов в одной строке в блестящей

Question

Я пишу блестящее приложение, а в пользовательском интерфейсе я хочу, чтобы переключатели и выбирали параметры ввода в одну строку.

My ui. R выглядит так:

library(shiny) 
library(shinydashboard) 

dashboardPage(skin = "blue", 
      dashboardHeader(title = 'Analysis'), 

      dashboardSidebar(
      sidebarMenu(
       menuItem("Summary", tabName = "summary", icon=icon("bar-chart")) 
      ) 
     ), 
      dashboardBody( 
      tabItems(
       tabItem(tabName ="summary", 
         fluidRow(
         radioButtons("radio", "Options", 
            list("A","B","C"), inline = TRUE, selected = "A"), 
         selectizeInput("month", "Month", multiple = T, choices = NULL), 
         selectizeInput("year", "Year", multiple = T, choices = NULL) 
          ) 
        ) 
       ) 
     ) 
) 

Как я могу сделать все три в одной строке (в одной строке)?

Answer 1

Я изменил файл ui.R на основе решений этого сообщения (shiny 4 small textInput boxes side-by-side) и смог получить все три в одной строке.

library(shiny) 
library(shinydashboard) 

dashboardPage(skin = "blue", 
     dashboardHeader(title = 'Analysis'), 

     dashboardSidebar(
     sidebarMenu(
      menuItem("Summary", tabName = "summary", icon=icon("bar-chart")) 
     ) 
    ), 
     dashboardBody( 
     tabItems(
      tabItem(tabName ="summary", 
        fluidRow(
        column(6, radioButtons("radio", "Options", 
           list("A","B","C"), inline = TRUE, selected = "A")), 
        column(3, selectizeInput("month", "Month", multiple = T, choices = NULL)), 
        column(3, selectizeInput("year", "Year", multiple = T, choices = NULL)) 
         ) 
       ) 
      ) 
    ) 
)