look_up_data_element_term <- function(term){
out <- data_elements[grep(term, data_elements$name, ignore.case = TRUE), ]
return(as.character(out$id))
}
look_up_data_set_term <- function(term){
de_id <- look_up_data_element_term(term)
ds_id <- unique(data_elements_sets$dataSet_id[data_elements_sets$id %in% de_id])
return(as.character(ds_id))
}
get_de_reporting_facilities <- function(ds_list){
ou_list <- org_units_reports[org_units_reports$id_report %in% ds_list ,]
return(as.character(unique(ou_list$id)))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.