R/facebook_unzip.R

In gonzalezben81/facebookanalysis: Analyses the emotional sentiment of Facebook message data

# facebook_unzip
#
# You can learn more about package authoring with RStudio at:
#
#   http://r-pkgs.had.co.nz/
#
# Some useful keyboard shortcuts for package authoring:
#
#   Build and Reload Package:  'Ctrl + Shift + B'
#   Check Package:             'Ctrl + Shift + E'
#   Test Package:   'Ctrl + Shift + T'
#' Facebook: Zip folder extractor
#'
#' This function unzips the Facebook zip folder that is downloaded when you retrieve the contents of your data.
#' Then the data is placed inside of a facebookmessages folder
#'
#'
#' @param path filepath to data
#' @keywords facebook_unzip
#' @return This function pulls the data from your downloaded Facebook zip file.
#' @name facebook_unzip
#' @title facebook_unzip
#' @usage facebook_unzip(path)
#' @examples
#'
#' library(facebookanalysis)
#'
#'\dontrun{facebook_unzip(path = data)}
#'
#' @export

utils::globalVariables(c("clean_text", "removeWords","stopwords","Corpus","DirSource","get_sentences","get_sentiment","pdf","plot","dev.off",
                         "png","head","write.table","write.csv","createWorkbook","addWorksheet","createStyle","addStyle","writeData","saveWorkbook",
                         "write.csv","get_nrc_sentiment","barplot","text","unzip","writeData"))

#' @export
facebook_unzip <- function(path){
##If directory does not exist create directory. Else if it exists write .txt data to directory
if(!dir.exists("./facebookmessages")){
  dir.create("./facebookmessages")
  unzip(zipfile = path,exdir = 'facebookmessages')
  print("Facebook Messages Directory Created and Files Unzipped")
}else{
  unzip(zipfile = path,exdir = 'facebookmessages')
  print("Facebook Messages Directory Created and Files Replaced")
}

}