R/link_files_get_linkage.R

In petermeissner/idep: Helper functions and procedures for the IDEP Project

#' function for extracting dates from link data files
#' 

link_files_get_linkage <- function(){
  # apply function definition
  worker2 <- function(link_env) {
    res  <- eval(as.name(link_env))$RESULTS
    meta <- eval(as.name(link_env))$meta
    link_data_get_linkage(res, meta) 
  }
  # data extraction  
  ldply(linkage_env, worker2, .progress="time")
}