R/extract_id.R

Defines functions extract_id

Documented in extract_id

#' extract_id
#' 
#' @keywords internal
#'
#' @param url url
#' @param endpoint endpoint
#'
extract_id <- function(url, endpoint) {
  gsub(paste0(endpoint, ".*/([0-9]*)/"), "\\1", url)
}

Try the rDataPipeline package in your browser

Any scripts or data that you put into this service are public.

rDataPipeline documentation built on Oct. 8, 2024, 5:06 p.m.