Question

我已经尝试在R Shiny中对齐dateRangeInput控件一段时间（超过2小时），但仍然无法这样做。我还搜索了Stackoverflow，找到了可以方便地完成其他控件（例如textInput或numericInput）工作的解决方案。但是，当涉及到dateRangeInput时，到目前为止我所看到的都失败了。请有人帮助我，我将不胜感激。以下是一个独立的代码（也从Stackoverflow中获取）：

library("shiny")
ui <- fluidPage(

  fluidRow(
    column(width = 4,
      tags$form(
        class="form-horizontal",
        tags$div(
          class="form-group",
          tags$label(class = "col-sm-4 control-label", `for` = "Area1000", "Area"),
          column(width = 4, dateRangeInput("date_range", label="", start="1900-01-01",
                                                                end ="2099-12-31",
                                                                min    = "1900-01-01",
                                                                max    = "2099-12-31"))
        )
      )
    )
  )

)

server <- function(input, output) {

}

shinyApp(ui = ui, server = server)

Answer 1

dateRangeInput已创建一个空标签（如https://shiny.rstudio.com/reference/shiny/1.1.0/dateRangeInput.html所述）

label：显示控件的标签，或者显示NULL，不显示标签。

因此，如果您使用dateRangeInput（“ date_range”，label = NULL ...您的当前代码应该可以使用。

library("shiny")
ui <- fluidPage(

  fluidRow(
    column(width = 4,
           tags$form(
             class="form-horizontal",
             tags$div(
               class="form-group",
               tags$label(class = "col-sm-4 control-label", `for` = "date_range", "Area"),
               column(width = 4, dateRangeInput("date_range", label = NULL, start="1900-01-01",
                                                end ="2099-12-31",
                                                min    = "1900-01-01",
                                                max    = "2099-12-31"))
             )
           )
    )
  )

)

server <- function(input, output) {

}

shinyApp(ui = ui, server = server)

我还将for声明更改为date_range，以匹配日期范围输入元素上的ID。

dateRangeInput R闪亮控件对齐

1 个答案: