我正在为工作开发一款shiny 的应用程序,目前使用dateRangeInput()来拉取数据.不过,我正在寻找一种替代方法,这样用户可以更具体地了解范围,也可以 Select 时间作为输入.基本上我的输入如下:

dateRangeInput('dates', 'Timeframe To Pull')

在我的服务器中引用为

starddate = input$dates[1]
enddate = input$dates[2]

但这是有限制的,因为他们的一些数据不能重叠,并且会在一天的中间(计划外)切换配置文件.因此,输入日期时间范围而不仅仅是日期范围将是巨大的.我知道有一个名为shinyTime的软件包,但它只适用于时间,而不适用于日期时间.所以我想看看外面有没有更干净的东西.

提前感谢您的帮助!

推荐答案

我刚刚为你做了一个包裹:-)

remotes::install_github("stla/DateTimeRangePicker")

以下示例包含在文档中.

library(DateTimeRangePicker)
library(shiny)

ui <- fluidPage(
  br(),
  sidebarLayout(
    sidebarPanel(
      width = 5,
      tags$fieldset(
        tags$legend("Click to change time"),
        dtrpickerInput(
          "dtrpicker",
          style = paste0(
            "background-color: chartreuse; ",
            "box-shadow: 0 30px 40px 0 rgba(16, 36, 94, 0.2);"
          )
        )
      )
    ),
    mainPanel(
      width = 7,
      verbatimTextOutput("dtrpicker")
    )
  )
)

server <- function(input, output){
  output[["dtrpicker"]] <- renderPrint({
    input[["dtrpicker"]]
  })
}

shinyApp(ui, server)

enter image description here

请注意,第二个日期没有时钟.也许这是JavaScript库的一个bug,我不知道.

R相关问答推荐

R dðr按时间间隔进行总结

过滤Expand.Grid的结果

在水平条形图中zoom x_轴

如何在热图中绘制一个图形,但在每个单元格中通过饼形图显示?

ggplot 2中的地块底图(basemaps_gglayer()不起作用)

找出疾病消失的受试者

R中的子集文件—读取文件名索引为4位数字序列,例如0001到4000,而不是1到4000)

用预测NLS处理R中生物学假设之上的误差传播

R s iml包如何处理语法上无效的因子级别?'

即使硬币没有被抛出,也要保持对其的跟踪

如何使用tryCatch执行语句并忽略警告?

无法定义沿边轨迹的 colored颜色 渐变(与值无关)

从圆到R中的多边形的标绘雷达图

从非重叠(非滚动)周期中的最新数据向后开窗并在周期内计数

如何使用前缀作为匹配来连接数据帧?

如何将一个方阵分解成没有循环的立方体

观察器中的inaliateLater的位置

有没有办法一次粘贴所有列

防止正则表达式覆盖以前的语句

通过R:文件名未正确写入[已解决]将.nc文件转换和导出为.tif文件