Попытка использовать отображение события щелчка в полном календаре для отображения всплывающего окна с дополнительной информацией о событии - PullRequest
Новая
       9

Попытка использовать отображение события щелчка в полном календаре для отображения всплывающего окна с дополнительной информацией о событии

0 голосов
/ 29 января 2020

У меня есть полный календарь, который получает "события" из соответствующих столбцов отфильтрованного фрейма данных. В идеале я хотел бы, чтобы при нажатии на одно из событий отображались дополнительные данные (из соответствующих строк / разных столбцов фрейма данных). Я приложил код для справки: 

# #Calendar Billing History (Billed)
 calendar <- data.frame(Account_Num,Account_Num_Spec,Account_Name,Billing_Num,Date,Tran_Type,Transaction_Amt2,CAL_DATE,color,CAL_DATE2)
 calendar_subset <- reactive({
 c4 <- calendar

return(c4)
})

# CALENDAR
LOL1 <- reactive({
data1 <- calendar_subset()
data1$CAL_DATE2 <- format(as.Date(data1$CAL_DATE2, format = "%m/%d/%Y"))
hope1 <- c(as.character(data1$Billing_Num))
hope2 <- c(data1$CAL_DATE2)
hope3 <- c(as.character(data1$color))
hope4 <- c(data1$Transaction_Amt2)
fullcalendar(events = data.frame(
  #title = c("ex1","ex2","ex3"),
  #start = c("2020-01-15","2020-02-14","2019-12-07"), #Sys.Date() + 0:1,
  #color = c("red","green","red"))) #"red", "orange")
  title = c(hope1),
  start = c(hope2), #Sys.Date() + 0:1,
  #end = c(hope2),
  color = c(hope3),
  description = c(hope4)))
}) 

output$test <- renderFullcalendar({LOL1()})
...