R/create.R

In mMARCH.AC: Processing of Accelerometry Data with 'GGIR' in mMARCH

#' @title Create a template shell script of mMARCH.AC   
#' @description Create a template shell script of mMARCH.AC, named as STUDYNAME_part0.maincall.R. 
#'  
#'
#'
#'  
#'
#' 
#'
#' @return  The function will create a template shell script of mMARCH.AC in the current directory, names as STUDYNAME_part0.maincall.R
#'
#' @export 
#'



 



create.shell<-function(){
 
inFN<-system.file("template", "STUDYNAME_module0.maincall.txt", package = "mMARCH.AC") 
 
d<-readLines(inFN)  
write(d,file="STUDYNAME_module0.maincall.R",ncolumns=1)  
print(paste("Write a template shell script: STUDYNAME_part0.maincall.R into ",getwd(),sep=""))
}