dateRangeInput R Shiny Control Alignment

Question

Я уже некоторое время пытаюсь настроить элемент управления 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) 

Answer 1

Уже существует пустая метка, создаваемая dateRangeInput (как задокументировано в: https://shiny.rstudio.com/reference/shiny/1.1.0/dateRangeInput.html)

метка: отображать метку для элемента управления или 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 для соответствияидентификатор элемента ввода диапазона дат.