时间戳

首页 > 解决方案 > dateRangeInput R 闪亮控件对齐

r - dateRangeInput R 闪亮控件对齐

问题描述

我已经尝试dateRangeInput在 R Shiny 中调整控制有一段时间了（超过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)

标签： rshiny

解决方案

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 匹配。

推荐阅读