R/extract_id.R

In FAIRDataPipeline/rDataPipeline: Functions to Interact with the 'FAIR Data Pipeline'

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)
}