R/pre_process_data.R

In jsphdms/scotgov: Access statistics.gov.scot Without SPARQL

#' Strips all api cruft form returned values
#'
#' \code{pre_process_data} is an internal function for \code{ods_dataset} that returns all unique values of a dataset scheme
#'
#' @param x \code{data.frame}. Dataframe produced by the sparql query.
#'
#' @return \code{data.frame}.
#'
#' @examples
#' pre_process_data(my_query_results)
#'
#' @keywords internal
#'
#' @noRd

pre_process_data <- function(x) {
  # Keep only last element of URI

  x[] <- lapply(
    X = x,
    FUN = function(x) {
      ifelse (substr(x,1,4) == "http",
              stringr::str_remove(
                stringr::str_extract(x,'[^/]+$'),
                '[>]'), x)
      })

  return(x)
}