R-无线电按钮，然后在一排中选择输入

Question

我正在编写一个闪亮的应用程序，在UI中，我希望无线电按钮并选择输入选项在一行中。

我的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

我根据该帖子的解决方案（Shiny 4小型TextInput框并排）修改了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(
                    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))
                          )
                  )
            )
      )
)