#' Get a list of indicators of each Goal (and target)
#' @description get a list of the indicators for each goal and target
#' @return A dataframe of indicators and the description
#' @examples require(SDGsR)
#' get_indicator_list()
#' @export
get_indicator_list <- function() {
url <- c("https://unstats.un.org/sdgs/UNSDGAPIV5/v1/sdg/Indicator/List")
datcall <- jsonlite::fromJSON(url)
indicators <- data.frame(
goal = datcall$goal,
target = datcall$target,
code = datcall$code,
description = datcall$description
)
return(indicators)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.