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

Question

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

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

如果可能，生成的图形将像这样打开:



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

我查看了 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)

它产生这个。查看器默认为当前月份而不是数据月份，所以我不得不返回 <在显示器上到达七月。我选择 7 月是因为它从周日开始，就像上面的随机数据一样。