Как отображать виджеты, встроенные в блестящие

У меня есть код ниже, чтобы отображать встроенные виджеты (в той же строке) в блестящем

div(style="display:inline-block; width: 150px;height: 75px;",selectInput("ddllgra", "Function:",c('mean','median','sd','count','min','max'), selected='mean')),
div(style="display:inline-block; width: 150px;height: 75px;",textInput(inputId="xlimitsmax", label="x-max", value = 0.5))

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

Есть ли способ исправить это несоосность?

Ответ 1

Добавьте vertical-align:top в свой style

rm(list = ls())
library(shiny)

ui <- fluidPage(
    sidebarPanel(
          div(style="display: inline-block;vertical-align:top; width: 150px;",selectInput("ddllgra", "Function:",c('mean','median','sd','count','min','max'), selected='mean')),
          div(style="display: inline-block;vertical-align:top; width: 150px;",textInput(inputId="xlimitsmax", label="x-max", value = 0.5))),
    mainPanel()
)
server <- shinyServer(function(input,output){})
shinyApp(ui, server)

Изменить: как добавить пространство между divs

Вы можете использовать один и тот же подход: Пример ниже имеет 100px между divs

rm(list = ls())
library(shiny)

ui <- fluidPage(
  sidebarPanel(
    div(style="display: inline-block;vertical-align:top; width: 150px;",selectInput("ddllgra", "Function:",c('mean','median','sd','count','min','max'), selected='mean')),
    div(style="display: inline-block;vertical-align:top; width: 100px;",HTML("<br>")),
    div(style="display: inline-block;vertical-align:top; width: 150px;",textInput(inputId="xlimitsmax", label="x-max", value = 0.5))),
  mainPanel()
)
server <- shinyServer(function(input,output){})
shinyApp(ui, server)

Ответ 2

Вы должны создать файл fluidPage с жидкостью, а затем использовать функцию столбца.

     fluidPage(fluidRow(
                        column(2, selectInput()),
                        column(1, selectInput()),
                        column(2, textInput())
                        )
               )

Более подробная информация, посмотрите на текучую страницу, жидкость и колонку в блестящих ссылках на функцию: http://shiny.rstudio.com/reference/shiny/latest/