R/list_harmonizedVariables.R

In antrologos/harmonizeIBGE: harmonizeIBGE - harmonized variables for Brazilian Censuses (1960-2010)

#' @export

list_harmonizedVariables <- function(themes = "all"){
        
        functions <- lsf.str("package:harmonizeIBGE") %>%
                as.character()
        function_list <- str_split(functions, "_")
        function_matrix <- matrix(NA, 
                                  nrow = length(function_list), 
                                  ncol = max(sapply(function_list, length)))
        
        for(i in 1:length(function_list)){
                ncols <- length(function_list[[i]])
                function_matrix[i, 1:ncols] <- function_list[[i]]
        }
        
        function_df <- function_matrix %>%
                data.frame() %>%
                setNames(c("funcType", "theme", "varName", "year", "other")) %>%
                filter(funcType == "build")
        
        if(themes != "all"){
                function_df <- function_df %>% 
                        filter(theme %in% themes) %>%
                        select(theme, varName)
        }
        
        function_df <- function_df %>%
                select(theme, varName) %>%
                filter(!duplicated(.))
        
        function_df
}