Load a DTA file, without labels

gistfile1.r

# Install and Load Packages
install.packages('haven')
library('haven')

install.packages('stringr')
library('stringr')



# Record the function
remove_labels <- function (x){
    for (i in names(x)) {
        v <- x[[i]]
        attr(v, "label") <- NULL
        attr(v, "labels") <- NULL
        is_it_labelled <- class(v) == "labelled"
        if (is_it_labelled) {
            is_it_character <- TRUE %in% str_detect(v, "[a-zA-Z]")
            if (is_it_character) {
                class(v) <- NULL
                class(v) <- "character"
            }
            else {
                class(v) <- NULL
                class(v) <- "numeric"
            }
        }
        x[[i]] <- v
    }
    data.frame(x)
}


# To load a .dta dataset, for example:

my_data_frame <- read_dta('path/to/your/file.DTA') 
my_data_frame <- remove_labels(my_data_frame)
names(my_data_frame) <- set_names(tolower(names(my_data_frame)))