@@ -83,17 +83,17 @@ bcbio_templates <- function(type="rnaseq", outpath=NULL, org=NULL){
8383 # file.copy(fpath, outpath, recursive = T)
8484 copy_templates(outpath , " spatial" , org )
8585 },
86- chipseq = {
86+ peakseq = {
8787 # file.copy(fpath, outpath, recursive = T)
88- copy_templates(outpath , " chipseq " , org )
88+ copy_templates(outpath , " peakseq " , org )
8989 },
9090 multiomics = {
9191 # file.copy(fpath, outpath, recursive = T)
9292 copy_templates(outpath , " multiomics" , org )
9393 },
9494 {
9595 stop(paste(' project type not recognize, please choose: ' ,
96- ' rnaseq' , ' chipseq ' ,
96+ ' rnaseq' , ' peakseq ' ,
9797 ' singlecell' ,' singlecell_delux' ,' spatial' ))
9898 }
9999 )
@@ -220,10 +220,14 @@ copy_templates <- function(path, pipeline, org=NULL){
220220 }else if (pipeline == " multiomics" ){
221221 parts = c(" templates/multiomics" )
222222 }else if (pipeline == " spatial" ){
223- parts = c(" templates/spatial" )
223+ # parts = c("templates/spatial")
224+ repos = " https://github.com/bcbio/spatial-reports/archive/refs/heads/main.zip"
225+ names(repos )= " spatial-reports"
224226 # apps=c(apps, SpatialViz="https://github.com/hbc/RShiny_app-SpatialViz/archive/refs/tags/Latest.zip")
225- }else if (pipeline == " chipseq" ){
226- parts = c(" templates/chipseq" )
227+ }else if (pipeline == " peakseq" ){
228+ # parts = c("templates/chipseq") #https://github.com/bcbio/peakseq-reports
229+ repos = " https://github.com/bcbio/peakseq-reports/archive/refs/heads/main.zip"
230+ names(repos )= " peakseq-reports"
227231 }
228232
229233 # check if it is url or folder
0 commit comments