library(tbltools)
pe_data <- tbl_fetch_peer_evaluation_data(data_gs_title = "${data_gs_title}") pe_data
# check which ones are not yet started or submitted pe_data %>% dplyr::filter(!started | !submitted) %>% dplyr::select(started, submitted, dplyr::everything())
pe_data %>% tbl_summarize_peer_evaluation_data(submitted_only = FALSE)
# exports both summary and raw data pe_data %>% tbl_export_peer_evaluation_data(submitted_only = FALSE)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.