R/source.R

In natgoodman/toutr: Exploring Statistical Issues Inspired by Taxpayer Outreach

#################################################################################
##
## Author:  Nat Goodman
## Created: 20-01-14
##          from bayez/source.R created 19-05-22
##          from run.R 19-02-18
##          from ovrfx.R created 19-02-03 
##          from siglo.R created 19-01-01
##          from repwr/R/repwr.R created 17-10-05 
##           and repwr/R/sim.R created 18-05-03
##
## Copyright (C) 2020 Nat Goodman.
## 
## Source files for frecl documents
##
## This software is open source, distributed under the MIT License. See LICENSE
## file at https://github.com/natgoodman/NewPro/FDR/LICENSE 
##
#################################################################################
## SOURCE=c('R/util.R','R/datman.R','R/doc.R','R/init.R','R/stats.R');
## SOURCE=c('R/util.R','R/init.R','R/doc_hiddn.R');
SOURCE=c('R/util.R','R/init.R','R/dat.R','R/doc.R','R/plot_util.R');

## ---- source the files ----
## source default files. assume README doc until init runs
source_files=function(files=SOURCE) {
  sapply(files,source);
  invisible();
}
## source doc-specific files
source_doc=function(doc=param(doc)) {
  docr=paste(sep='.',doc,'R');
  source_ifexists(paste(sep='_','R/dat',docr));
  source_ifexists(paste(sep='_','R/doc',docr));
  source_ifexists(paste(sep='_','R/docfun',docr));
  source_ifexists(paste(sep='_','R/plot',docr));
  source_ifexists(paste(sep='_','R/stats',docr));
}
## source optional doc-specific files
source_ifexists=function(file) if (file.exists(file)) source(file);
                         
## source all files
## NG 19-09-10: can't call param(doc) in empty workspace - param.env doens't exist
## source_all=function(files=SOURCE,doc=param(doc)) {
source_all=function(files=SOURCE) {
  source_files(files);
  ## source dat_XXX, doc_XXX files so top level functions defined
  ## NOTE: these top level functions call init which re-sources doc-specific files
  if (exists('param.env')) source_doc()
  else source_files(list.files('R',pattern='^(doc_|dat_).*.R',full.names=T));
}
source_all();