Блестящий dateInput без опции minViewMode

Я использую Shiny для разработки приложения в R, и я хотел бы использовать параметр datepicker minViewMode для используемого мной dateInput.

Я проверил официальную документацию Shiny, и кажется, что эта опция не рассматривалась для виджетов dateInput. Как я могу использовать эту опцию в своем R-коде? Это мой код ui.R:

dateInput("InitialDateGlobalViewTrafficSplit"
          ,h4("Initial date")
          ,value=as.Date(InitialDate)
          ,min = ("2012-01-01")
          ,weekstart = 1
          # ,minViewMode = 1 # Ideal solution :)
          )

Спасибо


r datepicker shiny bootstrap-datepicker
person Adrián Maeso    schedule 01.07.2014    source источник
comment
здесь был дан ответ: stackoverflow.com/questions/31152960/   -  person shosaco    schedule 16.08.2016

Ответы (2)


arrow_upward
0
arrow_downward

Попробуйте определить этот пользовательский ввод и использовать его с предлагаемым вызовом:

 mydateInput <- function(inputId, label, value = NULL, min = NULL, max = NULL,
                  format = "yyyy-mm-dd", startview = "month", weekstart = 0, language = "en", minviewmode="months",
                       width = NULL) {

   # If value is a date object, convert it to a string with yyyy-mm-dd format
   # Same for min and max
   if (inherits(value, "Date"))  value <- format(value, "%Y-%m-%d")
   if (inherits(min,   "Date"))  min   <- format(min,   "%Y-%m-%d")
   if (inherits(max,   "Date"))  max   <- format(max,   "%Y-%m-%d")

   htmltools::attachDependencies(
     tags$div(id = inputId,
              class = "shiny-date-input form-group shiny-input-container",
              style = if (!is.null(width)) paste0("width: ", validateCssUnit(width), ";"),

              controlLabel(inputId, label),
              tags$input(type = "text",
                         # datepicker class necessary for dropdown to display correctly
                         class = "form-control datepicker",
                         `data-date-language` = language,
                         `data-date-weekstart` = weekstart,
                         `data-date-format` = format,
                         `data-date-start-view` = startview,
                         `data-date-min-view-mode` = minviewmode,
                         `data-min-date` = min,
                         `data-max-date` = max,
                         `data-initial-date` = value
              )
     ),
     datePickerDependency
   )
 }

 `%AND%` <- function(x, y) {
   if (!is.null(x) && !is.na(x))
     if (!is.null(y) && !is.na(y))
       return(y)
   return(NULL)
 }

 controlLabel <- function(controlName, label) {
   label %AND% tags$label(class = "control-label", `for` = controlName, label)
 }

 datePickerDependency <- htmlDependency(
   "bootstrap-datepicker", "1.0.2", c(href = "shared/datepicker"),
   script = "js/bootstrap-datepicker.min.js",
   stylesheet = "css/datepicker.css")
person shosaco    schedule 06.06.2017

arrow_upward
0
arrow_downward

Возможно, более краткий способ кодирования был бы таким:

dateInputCustom <- function(inputId, label, minViewMode = 1, maxViewMode = 2, startDate = NULL, ...) { # set default values
  cal <- shiny::dateInput(inputId, label, format = "yyyy-mm-dd", ...)
  cal$children[[2L]]$attribs[["data-date-min-view-mode"]] <- minViewMode
  cal$children[[2L]]$attribs[["data-date-max-view-mode"]] <- maxViewMode
  cal$children[[2L]]$attribs[["data-date-start-date"]]    <- startDate
  cal
}

Обратите внимание, что аргумент min по умолчанию не работает, если используется minViewMode, поэтому вам также необходимо реализовать аргумент startDate.

Назовем это R Shiny:

dateInputCustom("InitialDateGlobalViewTrafficSplit",
      h4("Initial date"),
      value = as.Date(InitialDate),
      startDate = "2012-01-01",
      weekstart = 1,
      minViewMode = 1

)

person waskawy_wombat    schedule 31.01.2020