data-raw/aaaConvertCSV2RDATA.R

In zanbi/FSA-Fisheries-Stock-Assessment-: Simple Fisheries Stock Assessment Methods

################################################################################
## Use this to convert comma separated values files (*.csv) in the data-raw
##  directory of the FSA package to R data files (.rdata) in the data directory
##  of the FSA package. Note, there should be no .txt files in data-raw ... run
##  aaaConvertTab2CSV.R if there is.
################################################################################

library(tools)

## Get all .csv files in the data-raw directory
setwd("C:/aaaWork/Programs/GitHub/FSA/data-raw")
raw <- list.files(pattern="*.csv")

## You may only want to use a few files ... use this (e.g.) to do that
#raw
#raw <- raw[c(10,16)]

#### Convert to .rdata files ####
## Cycle through each file to make it an RDA file
for (f in raw) {
  print(f)
  ## Read file
  nm <- file_path_sans_ext(f)
  assign(nm,read.csv(f))
  ## Save as an .rdata file
  save(list=nm,file=paste0("../data/",nm,".rdata"))
}