if (FALSE) {
# Consider having created a editor widget with
editorOutput("my_editor") # UI
output$my_editor <- renderEditor({}) # Server
# Then you can call proxy methods in observer:
# set editor proxy then call a cal_proxy_* function
editor_proxy("my_editor") %>%
cal_proxy_today()
# or directly
cal_proxy_today("my_editor")
}
Run the code above in your browser using DataLab