- load_opts, now does a file check for options like:

  - `_exe`, `_dir`, `_path`, `_file`

Author: sahilseth

NEWS.md

@@ -1,6 +1,8 @@
 p a r a m s    0.6.0
 ------------------------------------------------
 - `read_sheet`, now recognizes `.mat` as a tsv
+- `load_opts`, now does a file check for options like:
+  - `_exe`, `_dir`, `_path`, `_file`
 
 p a r a m s    0.5.0
 ------------------------------------------------

R/load_opts.R

@@ -2,7 +2,7 @@
 
 #' @export
 .load_opts <- function(x, check, envir, verbose, .parse, ...){
-  
+
   if(!file.exists(x)){
     message("Configuration file does not exist, loading skipped. Expecting a file at:", x)
     return()
@@ -11,23 +11,23 @@
   if(class(conf) == "try-error")
     stop("error in read_sheet \nThere was a problem reading this file: ", x, "\nMake sure that all lines are two columns ",
          "seperated by TAB. ")
-  
+
   colnames(conf) = c("name", "value")
   lst1 = as.list(conf$value)
   names(lst1) = conf$name
-  
+
   ## for auto-completion its best to have
   lst2 = get_opts(envir = envir, .use.names = TRUE)
   lst = c(lst2, lst1)
-  
+
   if(.parse)
     lst = parse_opts(lst, envir = envir)
-  
+
   ## -- check the ones with file paths
   if(check){
     tmp <- chk_conf(lst[names(lst) %in% names(lst1)])
   }
-  
+
   #options(lst)
   set_opts(.dots = lst, envir = envir)
   #opts()$set(lst)
@@ -39,17 +39,17 @@
 #' @seealso \link{read_sheet}
 #' @export
 load_opts <- function(x, check = TRUE, envir = opts, verbose = TRUE, .parse = TRUE, ...){
-  
+
   if(missing(x))
     stop("Please supply path to a file to load as x")
-  
+
   ## .load_opts: works on a single file
   lst <- lapply(x, .load_opts, check = check, envir = envir, .parse = .parse, verbose = verbose,  ...)
-  
+
   ## only one conf file is read
   if(length(x) == 1)
     lst = lst[[1]]
-  
+
   ## return them as a list
   invisible(lst)
 }
@@ -72,28 +72,28 @@ load_conf <- function(...){
 #' @import whisker
 #'
 parse_opts <- function(lst, envir){
-  
+
   ## get values from previous envir
   ## which are being called by name in newer options
   ## example {{{mydir}}}
   get_vars <- function(x){
     unlist(regmatches(x, gregexpr('(?<=\\{\\{)[[:alnum:]_.]+(?=\\}\\})', x, perl=TRUE)))
   }
-  
+
   # get variables which need to be expanded
   vars = get_vars(unlist(lst))
   #x = get_opts(c("var", unlist(vars)), envir = envir) ## ensure, always a list
   x = as.list(get_opts(vars, .use.names = TRUE), envir = envir) ## ensure, always a list
-  
+
   ## if there are multiple elements with the same name
   ## this ensures we take the last/latest element
   lst = c(x, lst)
   lst = rev(lst)
   lst = lst[!duplicated(names(lst))]
-  
+
   ## handling duplicates
   ## if a option is set multiple times, we consider the last one.
-  
+
   ## --- sequentially evaluae each configuration
   for(i in 1:length(lst)){
     ## resolve ONLY when neccesary
@@ -105,7 +105,7 @@ parse_opts <- function(lst, envir){
 
 
 chk_conf <- function(x){
-  path_pattern = c("path$|dir$|exe$")
+  path_pattern = c("path$|dir$|exe$|file$")
   pths = grep(path_pattern, names(x))
   mis_pths = !(file.exists(as.character(x)[pths]))
   if(sum(mis_pths) > 0){

man/fix_names.Rd

@@ -5,7 +5,7 @@ SaveWorkspace: No
 AlwaysSaveHistory: Default
 
 EnableCodeIndexing: Yes
-UseSpacesForTab: No
+UseSpacesForTab: Yes
 NumSpacesForTab: 2
 Encoding: UTF-8