R/GetExcelMovies.R

In jr-packages/jrIntroductionRSS: Jumping Rivers: Introduction to R

#' Create a local copy of movies data
#'
#' This function will attempt to create a local copy of the movies data set
#' such that you can make sure that you are happy with reading in data from Excel files.
#'
#' @usage GetExcelMovies()
#' @return logical TRUE if the operation was successful
#' @export

GetExcelMovies = function(){
  fpath = system.file("movies.xlsx", package = "jrIntroduction")
  if (! nchar(fpath)){
    stop("Something wen't wrong, package internal excel file could not be found.
         You can skip this question if you want. Alternatively let me know and
         I will send you a copy manually")
  }
  if (!file.copy(fpath, paste0(getwd(), "/", "movies.xlsx"))){
    stop("Couldn't copy the file, you may not have permission to write to this
          directory. Try changing the working directory, either through the
          setwd() function or under Session in RStudio. If you still can't get
         it  working either skip this question or let me know and I will send
         you a copy manually.")
  }
  TRUE
}