install.packages("fullercalendar")

# install.packages("devtools")
devtools::install_github("ari-nz/fullercalendar")

library(fullercalendar)

now = Sys.time()
today = Sys.Date()
events = data.frame(title = paste("Event", 1:4),
                 start  = c(isodate(today+(-1:1)), isotime(now)),
                 end    = c(isodate(today+(0:2) ), isotime(now + 4800)),
                 color  = c("red", "#3788d8", "green", "blue"))

head(events)
#>     title                    start                      end   color
#> 1 Event 1               2019-11-27               2019-11-28     red
#> 2 Event 2               2019-11-28               2019-11-29 #3788d8
#> 3 Event 3               2019-11-29               2019-11-30   green
#> 4 Event 4 2019-11-28T18:30:27+1300 2019-11-28T19:50:27+1300    blue

library(shiny)
library(fullercalendar)

ui <- fluidPage(
  fullercalendarOutput('mycal'),
)

server <- function(input, output, session) {
  output$mycal = renderFullercalendar({
    fc = fullercalendar(events)
    fc
  })
}

shinyApp(ui, server)