R/featheriseR_csv.R

In debajyoti7/featheriseR: A wrapper for easily converting files to feather format

#' A featheriseR Function
#'
#' This function allows you to convert a csv file to feather format.
#' @param ip input file
#' @keywords feather csv
#' @importFrom feather write_feather
#' @importFrom magrittr %>%
#' @importFrom tools file_ext
#' @import utils
#' @import devtools
#' @return Outputs a feather file to the same path as input
#' @examples
#' featheriseR_csv(system.file("examples", "applicants1.csv", package = "featheriseR"))
#' @export
featheriseR_csv <- function(ip){

  list.of.packages <- c("devtools", "feather", "magrittr", "utils", "tools")
  new.packages <- list.of.packages[!(list.of.packages %in% installed.packages()[,"Package"])]
  if(length(new.packages)) {
    install.packages(new.packages)
    }
  if(length(new.packages)) {
    devtools::use_package(new.packages)
    }

  lapply(list.of.packages, devtools::use_package)

  if(! file_ext(ip)=="csv" ){
    stop("Invalid input type. Please provide a csv.")
  }

  op <- gsub(".csv", "", ip) %>%
    paste0(".feather")

  read.csv(file=ip, header=TRUE, sep=",") %>%
    as.data.frame() %>%
    write_feather(op)
}