r语言 - 我想在闪亮的应用程序中绘制时间vis，这是可能的通过输入一个文件，然后绘制时间vis

Question

library(shiny)
library(timevis)
library(readxl)
timing <- read_excel("~/../Documents/timing.xlsx")

ui <- fluidPage(
timevisOutput("timeline")
)
server <- function(input, output, session) {
output$timeline <- renderTimevis({
timevis(timing)
})
}
shinyApp(ui = ui, server = server)

Answer 1

您当然可以，但是由于我们无法看到使用read_excel创建的计时表是什么样子，我假设您被timevis需要的数据结构所困扰。有了这个计时表，你的演示就可以工作了。

timing <- data.table(
id = rep(1:5),
content = LETTERS[1:5],
start = seq(as.Date("2021/09/04"), by = "week", length.out = 5),
end = seq(as.Date("2021/10/19"), by = "day", length.out = 5)
)