如何在闪亮中内联显示小部件

Question

我有以下代码在闪亮中内联（在同一行）显示小部件

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))

它将在 UI 中发布，但不在同一行顺序中。一个在上侧，一个在下侧，同一条线。

有没有办法纠正这种错位？

Answer 1

您应该使用 fluidRow 创建一个 fluidPage，然后使用 column 函数。

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

更多详细信息，请在 shiny 函数 references.

中查找 fluidPage、fluidRow 和 column

Answer 2

将 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)

编辑：如何在 div

之间添加 space

您可以使用相同的方法：下面的示例在 div

之间有 100px

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)

如何在闪亮中内联显示小部件

How to display widgets inline in shiny

r

shiny

shinydashboard