在Shiny中使用日历格式输入数字数据的方法？

Question

有没有办法将日历输入布局(ala dateInput())用于非日期数据？

具体来说,我希望能够打开日历视图,但不是日期,而是有一个可供选择的输入值网格.

如果可能,生成的图形将打开如下:

(注意:上图中的#是随意的和随机的)

我已经查看了代码dateInput,但我不会立即明白如何开始转换代码以使用输入值而不是日期...

Answer 1

这是fullcalendar包装器的一种方法fullcalendar.js，不幸的是，它仍然包含日期，但如果您也可以显示数据，也许这也可以。

library(fullcalendar)
my.vals <- c(112,87,45,66,10,6,19,412,8,99,100,74,12,106,
      51,58,91,199,14,22,80,18,3,39,2,1,17,596,4,1003,392)
palette <- colorRampPalette(colors=c("#ff0000", "#0000ff"))
cols <- palette(31)
seqtime <- gsub( "[[:alpha:]]+$", "",
        seq(strptime("2018-07-01", format="%Y-%m-%d"),
        strptime("2018-07-31", format="%Y-%m-%d"), 
        by="1440 mins")  )
data <- data.frame(title = my.vals,
             start = seqtime,
             end = seqtime,
             color = cols)
fullcalendar(data)

它产生这个。查看器默认显示当前月份而不是数据月份，因此我必须返回<显示屏才能看到七月。我选择七月是因为它有一个星期日开始，就像上面的随机数据一样。