inputdir<-file.path(system.file(package="agilp"),"extdata","raw","", fsep = .Platform$file.sep)
outputdir<-file.path(system.file(package="agilp"),"output", "", fsep = .Platform$file.sep)
template<-file.path(system.file(package="agilp"),"extdata","sample_template.txt", fsep = .Platform$file.sep)
#This will copy the files with names given in column 2 , rows 2:3 of the sample_#template file from input to output.
Loader(input=inputdir,output=outputdir,t=template,f="TRUE",r=2,A=2,B=5)
#Alternatively this will output a single file all_data.txt with the same data in a merged file. The file is also output back to R as object dataout
Loader(input=inputdir,output=outputdir,t=template,f="FALSE",r=2,A=2,B=5)
dim(dataout)
## Not run:
# #to remove the output files again and empty the output directory use
# unlink(paste(file.path(system.file(package="agilp"),"output",""),"*.*",sep=""), recursive=FALSE)
# ## End(Not run)
Run the code above in your browser using DataLab