demo/batch_retina_object_gen_for_tests.R

In yinscapital/retina-analysis-reference: Tools for plotting and analyzing vertebrate retinas.

load_function_and_run <- function(string_identifier){
  relative_file_path <- paste0('retina/extdata/test_retinas/',
                     string_identifier,
                     '/',
                     'main',
                     '.r')
  path_to_retina_dir <- paste0('retina/extdata/test_retinas/',
                       string_identifier,
                       '/diagram_retina/')
  #source the file from the installed packages directory
  path_to_test_retina_folder <- file.path(.libPaths(), path_to_retina_dir)
  r_file_full_path <- file.path(.libPaths(), relative_file_path)
  source(r_file_full_path)
  run_command <- paste0('main_', string_identifier, "('", path_to_test_retina_folder, "')")
  str_eval=function(x) {return(eval(parse(text=x)))} # via https://goo.gl/TRpc2Y
  str_eval(run_command)
}

message('Batch computing retina objects')
list_of_retina_identifiers <- c('3hgbqg',
'bjii4t',
'jhvbwt',
'40oik5',
'8pm223',
'gv3igs',
'raxp91')

lapply(list_of_retina_identifiers, load_function_and_run)