#' Get Data
#'
#' \code{getData} Loads the data into an R object and stores in the data directory.
#'
#' Given a file path, this function loads the file into an R data frame. The name
#' is the basename name of the file without the file extension, unless otherwise
#' designated through the name parameter. Lastly, the data is stored as an RDA
#' object in the data-raw directory. This function currently supports csv and
#' excel files.
#'
#' @param path Character string indicating the location of the file to be loaded.
#' The file must be a CSV file with a single header row that will be
#' the column names for the data frame.
#' @param name Optional character string indicating the name of the R object. If
#' NULL, the base name of the file sans the extention will be used.
#'
getData <- function(path, name = NULL) {
if (!(file.exists(path))) stop("File does not exist.")
if (!(tools::file_ext(path) == "csv")) stop("Unable to load file. Only 'csv' files are supported")
directory <- "./data"
if (is.null(name)) name <- tools::file_path_sans_ext(basename(path))
filePath <- file.path(directory, paste0(name, ".rda"))
data <- read.csv(file = path, header = TRUE)
data[] <- lapply(data, as.character)
assign(name, data)
save(list = name, file = filePath, compression_level = 9)
}
getData(path = "./data-raw/contractions.csv", name = "contractions")
getData(path = "./data-raw/emoticons.csv", name = "emoticons")
getData(path = "./data-raw/internetAbbreviations.csv", name = "internetAbbreviations")
getData(path = "./data-raw/profanity.csv", name = "profanity")
getData(path = "./data-raw/stopwords.csv", name = "stopwords")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.