z_make.r

#! /usr/local/bin/Rscript --vanilla

##z_make.r
##2014-03-31 dmontaner@cipf.es
##Runs spin using knitr

## NOTE: the scripts are executed one after the other one.
##       The environment is not cleaned up.
##       The q() command at the end of the scripts ends the process.

## NOTE: spin does not stop with errors 
## example: ~/Downloads/tutoR$ R CMD BATCH z_make.r

date ()
Sys.info ()[c("nodename", "user")]
commandArgs ()
rm (list = ls ())
R.version.string ##"R version 3.0.2 (2013-09-25)"
library (knitr); packageDescription ("knitr", fields = "Version") #"1.5"
##help (package = knitr)

opts_chunk$set (comment = "#>")   ## symbol preceding the R output


### FILES TO COMPILE:
dir ()

bases <- c ("R_basico_1_vectores", "R_basico_2_matrices", "R_basico_3_listas", "graficos_estadisticos_1",
 "050_anova", "030_estadistica_descriptiva",
 "100_bootstrap", "080_anova_friedman", "010_lectura_datos", "020_gestion_datos", "040_inferencia_medias", "060_analisis_datos_categoricos",
"025_guardar_resultados", "050_anova2")   #NOTE: Here I have to add new files to compile!!

for (base in bases) {
    print (base)

    rm (list = setdiff (ls (), c("base", "bases")))  
    
    unlink (paste0 (base, ".html"))
    spin   (paste0 (base, ".r"), doc = "^##+'[ ]?")  ## double has plus quote instead of single has plus quote is used to indicate md/text chunks (as in roxygen doc. using emacs)
    unlink (paste0 (base, ".md"))
    unlink (paste0 (base, ".Rmd"))
}

unlink ("misdatos.txt")


###EXIT
warnings ()
sessionInfo ()
q ("no")