CTUtemplate 0.6.1

---------------------
addition of use_qmd_typst

DESCRIPTION

@@ -2,14 +2,14 @@ Package: CTUtemplate
 Title: Example RStudio Project Templates
 Author: Alan G. Haynes
 Maintainer: Alan G. Haynes <[email protected]>
-Version: 0.6.0
+Version: 0.6.1
 Description: Templates and functions for use in CTU Bern.
 Depends: 
   R (>= 3.3.2)
 License: GPL (>= 2)
 Encoding: UTF-8
 LazyData: true
-RoxygenNote: 7.2.3
+RoxygenNote: 7.3.2
 Imports: 
   bookdown,
   fs,

NAMESPACE

@@ -10,6 +10,7 @@ export(use_qmd_html)
 export(use_qmd_htmlrecruitment)
 export(use_qmd_htmlsampsi)
 export(use_qmd_pres)
+export(use_qmd_typst)
 export(use_quarto)
 export(use_recreport_template)
 export(use_report_template)

NEWS.md

@@ -1,3 +1,7 @@
+CTUtemplate 0.6.1
+---------------------
+addition of use_qmd_typst
+
 CTUtemplate 0.6.0
 ---------------------
 update templates to use DCR-like branding

R/use_.R

@@ -282,6 +282,27 @@ use_qmd_htmlsampsi <- function(save_in = ".", open = TRUE){
 
 }
 
+#' Use the CTU quarto typst template
+#' This function will download and optionally open the quarto markdown (qmd) file
+#' and the other necessary files from github.
+#' @describeIn use_qmd Sample Size Report Template
+#' @param save_in directory to save the main qmd in
+#' @param open logical indicating whether to open the file
+#' @export
+#' @examples
+#' # dir <- tempdir()
+#' # file <- file.path(dir, "filename.qmd")
+#' # use_qmd_html(file, FALSE)
+#' # in practice at CTU:
+#' # use_qmd_typst("08_Reports_xx/ReportName.qmd", TRUE)
+use_qmd_typst <- function(save_in = ".", open = TRUE){
+
+  if_no_ping_stop()
+
+  use_quarto("typst", save_in, open = open)
+
+}
+
 
 
 #' Get a quarto template from the CTU-Bern quarto repository
@@ -297,14 +318,15 @@ use_qmd_htmlsampsi <- function(save_in = ".", open = TRUE){
 #' #use_quarto("html", ".")
 use_quarto <- function(x, dir, open = TRUE){
 
-  if(!x %in% c("html", "html-ss", "html-rec", "pres")){
+  if(!x %in% c("html", "html-ss", "html-rec", "pres", "typst")){
     stop("unknown branch of CTU-Bern/quarto")
   }
 
   wd <- getwd()
   on.exit(setwd(wd))
 
   setwd(dir)
+  if(length(list.files()) > 0) stop("'dir' is not empty - an empty 'dir' is necessary")
 
   system(glue("quarto use template CTU-Bern/quarto@{x} --no-prompt"))