if (FALSE) {
# Consider having created a datagrid widget with
datagridOutput("my_grid") # UI
output$my_grid <- renderDatagrid({}) # Server
# Then you can call proxy methods in observer:
# set datagrid proxy then call a cal_proxy_* function
datagrid_proxy("my_grid") %>%
datagrid_proxy_addrow(mydata)
# or directly
datagrid_proxy_addrow("my_grid", mydata)
}
Run the code above in your browser using DataLab