我需要 ShinyWidgets airDatepickerInput的精確 2 天范圍。這意味著我只能在選擇的第一個日期前選擇 1 天。
如何將 input$Dates[2] 的 maxDate 和 minDate 選項更新為反應性且等于 input$Dates[1] 1
有沒有更好的方法？你如何使用updateAirDateInput？
# Libraries
library(shiny)
library(shinyWidgets)
# UI
ui <- navbarPage(title = "Title - V1.0",
tabPanel("Tab 1",
sidebarLayout(
sidebarPanel(width = 4,
airDatepickerInput(inputId = "Dates",
multiple = 2,
range = TRUE)),
mainPanel())))
# Server
server <- function(input, output, session) {}
# Create a Shiny app object
shinyApp(ui = ui, server = server)
uj5u.com熱心網友回復：
我自己找到了答案。
daterangepicker(
inputId = "Dates",
label = "Select Dates",
start = as_date(Sys.Date()-60),
end = as_date(Sys.Date()),
min = '2021-01-01',
max = Sys.Date(),
options = daterangepickerOptions(maxSpan = list("days" = 2)),
ranges = list("Today" = Sys.Date(),
"Yesterday" = Sys.Date() - 1,
"Yesterday & Today" = c(Sys.Date() - 1, Sys.Date()),
"Last 7 days" = c(Sys.Date() - 6, Sys.Date())))
有關基本和高級示例，請參閱此處：
https://github.com/trafficonese/daterangepicker/tree/master/inst/examples
轉載請註明出處，本文鏈接：https://www.uj5u.com/qita/532287.html
標籤：r日期闪亮的闪亮的小工具