Nothing
#' @md
#' @title get_stats
#' @author Socorro Dominguez \email{s.dominguez@ht-data.com}
#' @author Simon Goring \email{goring@wisc.edu}
#' @import dplyr
#' @import tidyr
#' @description Returns a count of sites, datasets, publications and other
#' objects added to Neotoma during the requested time period.
#' @details This function returns summaries about the data holdings
#' within Neotoma using the existing Neotoma API's `summary` endpoint. This can
#' provide information about recent uploads (the number of new sites uploaded within the
#' last month, for example), or can be used to provide information about the overall number
#' of sites/datasets (using an arbitrarily high value for `end`).
#' @param start The starting month (from present == 0) for which to generate the summary.
#' @param end The ending month (from present == 0) for which to generate the summary.
#' @returns `data.frame` with summary statistics
#' @examples \donttest{
#' last_month <- get_stats(start = 0, end = 1)
#' }
#' @export
get_stats <- function(start, end) {
base_url <- paste0("data/summary/rawbymonth?start=", start, "&end=", end)
result <- neotoma2::parseURL(base_url)
result <- result$data$data
df <- result %>% purrr::map_df(~ data.frame(
datasets = .$datasets,
sites = .$sites,
publications = .$publications,
authors = .$authors,
countrygpid = .$countrygpid
))
return(df)
}
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.