我有兴趣将 DateRange 与时间输入一起使用(或 TimeRange 如果可能)。我的例子:我有一个数据集，其中包含一月份的一天中不同时间的交易。我需要可视化所有日期 16:00 到 23:59 之间进行的交易。目前，我只能选择开始时间和结束时间(第一天和最后一天)。有谁知道如何处理这个问题吗？
最佳答案
我将使用具有自定义日期格式的 slider 范围，如下所示:
library(lubridate)
library(shiny)
ui <- fluidPage(
sliderInput(
"test_input",
label = "Select time",
min = lubridate::origin,
max = lubridate::origin + days(1) - seconds(1),
value = c(lubridate::origin, lubridate::origin + days(1) - seconds(1)),
step = 5 * 60,
timeFormat = "%H:%M",
timezone = "+0000",
ticks = FALSE
)
)
server <- function(input, output) {
}
shinyApp(ui = ui, server = server)
结果:
关于r - 使用 Shiny 选择特定的时间范围，我们在Stack Overflow上找到一个类似的问题： https://stackoverflow.com/questions/63451327/