R/extract_abs_tabletitles.R

Defines functions extract_abs_tabletitles

# Only used with read_abs_local, where we can't get the titles from
# the Time Series Directory
#' @importFrom readxl read_excel

extract_abs_tabletitles <- function(filename, path) {
  filename <- paste0(path, "/", filename)

  tabletitle <- readxl::read_excel(filename,
    range = "Index!B6:B6",
    col_names = "tabletitle"
  )

  tabletitle <- as.character(tabletitle)

  tabletitle
}

Try the readabs package in your browser

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

readabs documentation built on Dec. 17, 2021, 1:07 a.m.