# Rscript ./Pipelines/birthrate-pipe-custom/Components/birthrate/script.R 
# Work in local environment so that functions are saved with env 
local({ 
# Load module input 
assign("brsrcfile", "/home/fos/pmur002/Talks/OpenAPI2014/Slides/data/LTD404701_20140509_101154_10.csv") 
# Set working directory 
oldwd <- setwd("./Pipelines/birthrate-pipe-custom/Components/birthrate") 
# Module source 
# Read in original data source from Stats NZ ...
#   'brsrcfile' ("LTD404701_20140509_101154_10.csv")
# ... and tidy it to produce nicer CSV ...
#   "birthrate.csv"
lines <- readLines(brsrcfile)
# Drop any line that does not start with a digit
writeLines(lines[grep("^[0-9]", lines)], "birthrate.csv") 
# Reset working directory 
setwd(oldwd) 
# Save module output 
}) # End local()