##---- Should be DIRECTLY executable !! ----##-- ==> Define data, use random,##-- or do help(data=index) for the standard data sets.## The function is currently defined asfunction (file,...){Sweave(file,...)textfile<-tools::file_path_sans_ext(file)pdflatex(paste0(texfile,".tex"))}