Arrange R блестящие объекты боковой панели

Question

Я создал следующий интерфейс, используя R блестящий.

  library(shiny)




  ui <- fluidPage(
  #Can be fluid row also
  fluidRow(
  column(3,
       h3("Excel DB"),
       hr(),
       fileInput("file1", "Excel DB",
                 multiple = TRUE,
                 accept = c("text/csv/xlsx/xls",
                            "text/comma-separated-values,text/plain",
                            ".csv", ".xls", ".xlsx")),
       textInput(inputId = 'Type',label =  'Type'),
       textInput(inputId = 'Client',label =  'Client'),
       textInput(inputId = "Task", label = "Task"),
       actionButton(inputId = "ClearAll", label = "Clear Screen"),
       radioButtons("dist", "Vertical Axis Scale",
                    c("Linear" = "Linear Regression",
                      "Log" = "Logistic Regression"))
),
column(5,h5('              '),
       hr(), downloadButton(outputId = "Downloaddata", label = "Fetch Dataset"),
       textInput(inputId = "Commodity", label = "Commodity"),
       textInput(inputId = "Year", label = "Year"),
       radioButtons("dist", "Horizontal Axis Scale",
                    c("Linear" = "Linear Regression",
                      "Log" = "Logistic Regression")),
       numericInput(inputId = "Numberinput", label = "Numinput", min = -1000000000, max = 1000000000, value = 0,step = 1)

)
), sliderInput(inputId = "Scale", label = "Scale", min = 0, max = 100, step 
= 2.5, value = 1)
)

Я создал следующий пустой сервер

server<-function(input, output){}
shinyApp(ui, server)

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

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

Answer 1

Для этого вам нужно сделать несколько вложений column() и fluidRow(). Этот ответ должен объяснить достаточно, чтобы вы начали, наряду с примерами Руководство по верстке Shiny .Я полагаю, что следующее должно дать вам примерно то, что вы хотите:

library(shiny)

ui <- fluidPage(
  #Can be fluid row also
  h3("Excel DB"),
  hr(),
  fluidRow(
    column(12,
           fluidRow(
             column(3,
                    fileInput("file1", NULL,
                              multiple = TRUE,
                              accept = c("text/csv/xlsx/xls",
                                         "text/comma-separated-values,text/plain",
                                         ".csv", ".xls", ".xlsx"))),
             column(5,
                    column(3,
                           downloadButton(outputId = "Downloaddata", label = "Fetch Dataset")),
                    column(2, offset = 2,
                           actionButton(inputId = "ClearAll", label = "Clear Screen"))
                    )
           ),
           fluidRow(
             column(3,
                    textInput(inputId = 'Type',label =  'Type'),
                    textInput(inputId = 'Client',label =  'Client'),
                    textInput(inputId = "Task", label = "Task")
             ),
             column(5,
                    textInput(inputId = "Commodity", label = "Commodity"),
                    textInput(inputId = "Year", label = "Year"),
                    numericInput(inputId = "Numberinput", label = "Numinput", min = -1000000000, max = 1000000000, value = 0,step = 1)
             )),
           fluidRow(
             column(3,
                    radioButtons("dist", "Vertical Axis Scale",
                                 c("Linear" = "Linear Regression",
                                   "Log" = "Logistic Regression"))),
             column(5,
                    radioButtons("dist", "Horizontal Axis Scale",
                                 c("Linear" = "Linear Regression",
                                   "Log" = "Logistic Regression")))
             ),
           fluidRow(
             column(5,
                    sliderInput(inputId = "Scale", label = "Scale", min = 0, max = 100, 
                                step = 2.5, value = 1)) 
             )
           )
    )
  )

^{Создано в 2018-09-20 пакетом Представить (v0.2.1)}