Merge branch 'main' of github.com:bcbio/bcbioR

R/hello.R

@@ -14,26 +14,27 @@
 #   Test Package:              'Cmd + Shift + T'
 
 .fix <- function(x){
-  x <- tolower(x) %>% str_replace_all(x, "[[:punct:]]", " ")
-  retunr(x)
+  x <- tolower(x) %>% str_replace_all(., "[[:punct:]]", "_")
+  return(x)
 }
 
 #' @export
 bcbio_set_project <- function() {
   hbc_code <- readline("What is the hbc code:\n")
+  hbc_code <- paste0("hbc", hbc_code)
   pi <- readline("What is PI last name:\n")
   technology <- readline("What is the technology:\n")
   tissue <- readline("What is the tissue:\n")
   org <- readline("What is the organism:\n")
   project <- readline("What is the project name:\n")
-  dropbox <- readline("What is the dropbox name:\n")
-  github_org <- readline("What is the github organization:\n")
+  #dropbox <- readline("What is the dropbox name:\n")
+  #github_org <- readline("What is the github organization:\n")
   #hbc_$technology_of_$pilastname_$intervention_on_$tissue_in_$organism_$hbccode
-  project_full <- paste(project, technology, fix(pi), project, tissue, organism, hbc_code, sep="_")
-  github <- c(github_org,project_full)
-  opts <- list(code=hbc_code, project=project_full,
-               dropbox=file.path(dropbox,project_full),
-               github=github)
+  project_full <- paste(technology, .fix(pi), .fix(project), tissue, org, hbc_code, sep="_")
+  #github <- c(github_org,project_full)
+  opts <- list(code=hbc_code, project=project_full)
+               #dropbox=file.path(dropbox,project_full),
+               #github=github)
   print(opts)
   return(opts)
 }

inst/rmarkdown/templates/common/skeleton/README.md

@@ -0,0 +1,13 @@
+# TODO
+
+[ ] Replace Title in this file matching title projects
+[ ] run function`bcbio_set_project()` to set up information for this project
+    - hbcxxxx code
+    - technology
+    - tissue
+    - organism
+    - pi
+    - project name
+[ ] run function `bcbio_set_git()` to set up git repository
+[ ] run function `bcbio_copy_dropbox()` to copy files to dropbox location
+

inst/rmarkdown/templates/common/skeleton/information.R

@@ -0,0 +1,6 @@
+# info params
+project = "name_hbcXXXXX"
+PI = 'person name'
+experiment = 'short description'
+aim = 'short description'
+analyst = 'person in the core'

inst/rmarkdown/templates/common/skeleton/skeleton.Rmd

@@ -0,0 +1,25 @@
+---
+title: "General Project Information"
+author: "Harvard Chan Bioinformatics Core"
+date: "`r Sys.Date()`"
+output:
+   html_document:
+      code_folding: hide
+      df_print: paged
+      highlights: pygments
+      number_sections: true
+      self_contained: true
+      theme: default
+      toc: true
+      toc_float:
+         collapsed: true
+         smooth_scroll: true
+editor_options: 
+  chunk_output_type: console
+params:
+  params_file: information.R
+---
+
+```{r echo = F}
+source(params$params_file)
+```

inst/rmarkdown/templates/common/template.yaml

@@ -0,0 +1,3 @@
+name: bcbio base
+description: Standard NGS down-stream analyses
+create_dir: true