R/codes2labels.R

In rOpenSpain/istacbaser: Programmatic Access to Data from the ISTAC API

#' Format data of \code{\link{istacbase_get}} return from codes to labels
#'
#' change the data of dataframe returned by \code{\link{istacbase_get}}
#' from the code gived by th ISTAC API to the labels gived them.
#'
#' @param datos_lista a list given by \code{\link{istacbase_get}}
#' @param df a data frame with data in Code format.
#'
#' @return a data frame with the column names changed accordingly

codes2labes <- function(datos_lista, df){

  variables <- datos_lista$categories$variable
  codigos <- datos_lista$categories$codes
  names(codigos) <- variables
  labels <- datos_lista$categories$labels
  names(labels) <- variables
  tempvar <- variables[variables %in% c("A\u00F1os","Periodos")]





  col_changes <- lapply(variables[!(variables %in% c("A\u00F1os","Periodos"))], function(x){
    columna <- df[[x]]
    c_cambio <- labels[[x]]

    c_cambio <- trimws(c_cambio,which = "both")



    names(c_cambio) <- codigos[[x]]

    col_match <- match(columna, names(c_cambio))
    changes <- c_cambio[col_match]
  })

  df_final <- as.data.frame(do.call(cbind,col_changes),stringsAsFactors = FALSE)
  names(df_final) <- variables[!(variables %in% c("A\u00F1os","Periodos"))]

  if(length(tempvar) > 0)
    df_final[tempvar] <- df[tempvar]

  df_final["valor"] <- df["valor"]

  rownames(df_final) <- NULL

  df_final
}