增加 DateRangeInput 的高度和 R shiny 中的对齐方式

Question

我需要下面的 R 脚本满足以下要求。当您单击顶部的侧边栏符号时，当仪表板正文展开时，所有小部件都在一行中，但是当仪表板正文缩小时，dateRangeInput 小部件出现在下面一行。我希望所有小部件都显示在一行中并相应地调整大小。请帮助并感谢。

## app.R ##
library(shiny)
library(shinydashboard)
ui <- dashboardPage(
dashboardHeader(),
dashboardSidebar(),
dashboardBody(
box(title = "Data", fluidPage(

  div(style = "display: inline-block;vertical-align:top; width: 600 px;", 
selectInput("select1","select1",c("A1","A2","A3")),selected = "A1"),
  div(style = "display: inline-block;vertical-align:top; width: 600 px;", 
selectInput("select2","select2",c("A3","A4","A5")),selected = "A3"),
  div(style = "display: inline-block;vertical-align:top; width: 600 px;", 
selectInput("select2","select2",c("A3","A4","A5")),selected = "A3"),
  div(style = "display: inline-block;vertical-align:top; width: 600 px;", 
selectInput("select2","select2",c("A3","A4","A5")),selected = "A3"),
div(style = "display: inline-block;vertical-align:top; width: 600 px;",   
dateRangeInput("daterange1", "Date range:",

start = "2001-01-01",

end   = "2010-12-31")
),
status = "primary", solidHeader = T, width = 12, height = 120)
)
))
server <- function(input, output) { }
shinyApp(ui, server)

Answer 1

您的某些代码已关闭，以至于您甚至看不到您输入框周围的方框。

除此之外：您的样式有点像 div，无法实现您想要的效果。请随意浏览 Fluid Grid 上的 shiny layout guide 部分，通过使用 shiny 提供的正确功能探索您在造型方面的可能性。

对于日期范围小部件中的高度问题：选择的最小高度为 34 像素。如果您还通过 css 将其应用于 daterange 对象，则可以使它们具有相同的大小。

更正以下代码：

## app.R ##
library(shiny)
library(shinydashboard)
ui <- dashboardPage(
  dashboardHeader(),
  dashboardSidebar(),
  dashboardBody(
    box(title = "Data", status = "primary", solidHeader = T, width = 12,
      fluidPage(
        fluidRow(
          column(2, selectInput("select1","select1",c("A1","A2","A3"), selected = "A1")),
          column(2, selectInput("select2","select2",c("A3","A4","A5"), selected = "A3")),
          column(2, selectInput("select2","select2",c("A3","A4","A5"), selected = "A3")),
          column(2, selectInput("select2","select2",c("A3","A4","A5"), selected = "A3")),
          column(4, dateRangeInput("daterange1", "Date range:", start = "2001-01-01",end = "2010-12-31")),
          tags$head(
            tags$style("
              .input-daterange input {
                min-height: 34px;
              }
            ")
          )
        )
      )
    )
  )
)
server <- function(input, output) { }
shinyApp(ui, server)

增加 DateRangeInput 的高度和 R shiny 中的对齐方式

Increasing the height of the DateRangeInput and alignment in R shiny

css

r

shiny

shinydashboard