R/createStatCanVariables.r

In CANSIM2R: Directly Extracts Complete CANSIM Data Tables

createStatCanVariables <- function(df){
  VectorPosition <- match(c("VECTOR", "VECTEUR"), table = names(df))
  indexPosition <- which(!is.na(VectorPosition)) # locate the first non-NA (i.e. where VECTOR|VECTEUR was found)
  VectorPosition <- VectorPosition[indexPosition]

  #Only create new variable if there is more than one column from StatCan
  #Concatenates variables names accross column to create a single column (name)
  if(VectorPosition > 5) df$StatCanVariable <- apply(df[,c(3:(VectorPosition-1))], 1, function(x) paste(x, collapse = "; "))
  else df$StatCanVariable <- df[,3]

  return(df)
}