fetch_hook_read(fpath, fread)
key, namespace
filename
hook <- fetch_hook_read( function(key, namespace) paste0(key, ".csv"), function(filename) read.csv(filename, stringsAsFactors=FALSE))
Run the code above in your browser using DataCamp Workspace