knitr::opts_chunk$set(dpi=300, fig.pos="H", fig.width=8, fig.height=6, echo=FALSE, warning=FALSE, message=FALSE); source_url<-"sftp-cancer.sanger.ac.uk/cosmic/grch38/cosmic/v75"; file_home<-paste(Sys.getenv('RCHIVE_HOME'), 'data/variant/public/cosmic/src', sep='/'); file_out<-paste(Sys.getenv('RCHIVE_HOME'), 'data/variant/public/cosmic/r', sep='/');
r source_url
r file_home
for further processingr file_out
############################################################################################################## tm<-strsplit(as.character(Sys.time()), ' ')[[1]][1]; fn0<-paste(Sys.getenv("RCHIVE_HOME"), '/source/script/update/variant/ProcessCosmic.Rmd', sep=''); fn1<-paste(Sys.getenv("RCHIVE_HOME"), '/source/script/update/variant/log/', tm, '_ProcessCosmic.Rmd' , sep=''); file.copy(fn0, fn1)
END OF DOCUMENT
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.