问如何以闪亮的方式保存通过toastUI日历输入的数据

EN

library(shiny)
library(toastui)

ui <- fluidPage(  
  titlePanel("Buchungssystem"),
  tabsetPanel(
    tabPanel("Platz 1",
             calendarOutput("tennis1")
             ),
    )
)
server <- function(input, output) {
    output$tennis1 <- renderCalendar({
      calendar(
        isReadOnly = F,
        scheduleView = "time",
        defaultDate = Sys.Date(),
        view = "week",
        navigation = T,
        navOpts =  navigation_options(today_label = "heute", prev_label = "Woche zurück", next_label = "Woche vor", fmt_date = "DD/MM/YYYY", sep_date = " - "),
        useDetailPopup = T,
        useCreationPopup = T
      ) %>%
        cal_week_options(startDayOfWeek = 1, daynames = c("So","Mo","Di","Mi","Do","Fr","Sa"),hourStart = 7,hourEnd = 21)
    })
       
     observeEvent(input$tennis1_add, {
       str(input$tennis1_add)
       cal_proxy_add("tennis1", input$tennis1_add)
     })    
    observeEvent(input$tennis1_update, {
      str(input$tennis1_update)
      cal_proxy_update("tennis1", input$tennis1_update)
    })   
    observeEvent(input$tennis1_delete, {
      str(input$tennis1_delete)
      cal_proxy_delete("tennis1", input$tennis1_delete)
    })   
}

shinyApp(ui = ui, server = server)