add README creation to use_visc_report()

FredHutch · Sep 4, 2024 · 576036b · 576036b
1 parent 5fc75e5
commit 576036b
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/R/use_visc_report.R b/R/use_visc_report.R
@@ -160,6 +160,9 @@ use_visc_report <- function(report_name = "PTreport",
   usethis::ui_done(
     glue::glue("Creating {{report_type}} VISC report at '{{file.path(path, report_name)}}'")
   )
+  file.copy(from = find_resource("visc_report", "README_PT_Report.md"),
+            to = "README.md",
+            overwrite = FALSE)
   if (report_type != 'empty'){
     use_visc_methods(path = file.path(path, report_name), assay = report_type,
                      interactive = interactive)