R/get_legacy_key.R

In kofdata: Get Data from the 'KOF Datenservice' API

#' Get a Former Time Series Identifier from KOF Database
#' 
#' Get legacy keys given new time series keys. Note that not all records need to have 
#' a legacy key because there are more new keys than old keys.
#' @param ts_keys A vector of time series keys
#' @return A named list of legacy keys
#' @export
get_legacy_key <- function(ts_keys) {
  .Defunct(msg = "The underlying endpoint is not available anymore. 
          If need to handle legacy identifiers please contact a system administrator.")
  # metadata <- get_metadata(ts_keys)
  # lapply(
  #   lapply(metadata, '[', "legacy_key"),
  #   unlist,
  #   use.names = FALSE
  # )
}