Nothing
#' ECMWF dataset list
#'
#' Returns a list of datasets
#'
#' @param user user (email address) used to sign up for the ECMWF data service,
#' used to retrieve the token set by \code{\link[ecmwfr]{wf_set_key}}
#' @param service which service to use, one of \code{webapi}, \code{cds}
#' or \code{ads} (default = webapi)
#' @param simplify simplify the output, logical (default = \code{TRUE})
#' @return returns a nested list or data frame with the ECMWF datasets
#' @seealso \code{\link[ecmwfr]{wf_set_key}}
#' \code{\link[ecmwfr]{wf_transfer}}
#' \code{\link[ecmwfr]{wf_request}}
#' @export
#' @author Koen Hufkens
#' @examples
#'
#' \dontrun{
#' # set key
#' wf_set_key(email = "test@mail.com", key = "123")
#'
#' # get a list of services
#' wf_services("test@mail.com")
#'
#' # get a list of datasets
#' wf_datasets("test@mail.com")
#'}
wf_datasets <- function(
user,
service = "webapi",
simplify = TRUE
){
# check the login credentials
if(missing(user)){
stop("Please provide ECMWF WebAPI or CDS login email / url!")
}
# get key
key <- wf_get_key(user = user, service = service)
# query the status url provided
response <- switch(
service,
"webapi" = httr::GET(
paste0(wf_server(),"/datasets"),
httr::add_headers(
"Accept" = "application/json",
"Content-Type" = "application/json",
"From" = user,
"X-ECMWF-KEY" = key),
encode = "json"),
"cds" = httr::GET(sprintf("%s/resources/",
wf_server(service = "cds"))),
"ads" = httr::GET(sprintf("%s/resources/",
wf_server(service = "ads"))))
# trap errors
if (httr::http_error(response)){
stop("Your request failed - check credentials", call. = FALSE)
}
# check the content, and status of the
# download
ct <- httr::content(response)
if(simplify){
if(service == "webapi"){
# reformat content
ct <- do.call("rbind", lapply(ct$datasets, function(x){
return(data.frame(x['name'], x['href'], stringsAsFactors = FALSE))
}))
colnames(ct) <- c("name","url")
} else {
# reformat content
ct <- data.frame(name = unlist(ct),
url = sprintf("%s/resources/%s",
wf_server(), unlist(ct)))
}
}
# return content
return(ct)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.