🚸 Use the current working directory as default report_path

Author: ThierryO

R/add_abstract.R

@@ -9,7 +9,7 @@
 #' @importFrom fs is_dir is_file path
 #' @importFrom utils head tail
 #' @importFrom yaml read_yaml write_yaml
-add_abstract <- function(report_path) {
+add_abstract <- function(report_path = ".") {
   assert_that(is.string(report_path), noNA(report_path), is_dir(report_path))
   target <- path(report_path, "_quarto.yml")
   stopifnot("no `_quarto.yml` found at `report_path`" = is_file(target))

R/add_bibliography.R

@@ -9,7 +9,7 @@
 #' @importFrom fs is_dir is_file file_exists path
 #' @importFrom utils head tail
 #' @importFrom yaml read_yaml write_yaml
-add_bibliography <- function(report_path) {
+add_bibliography <- function(report_path = ".") {
   assert_that(is.string(report_path), noNA(report_path), is_dir(report_path))
   target <- path(report_path, "_quarto.yml")
   stopifnot("no `_quarto.yml` found at `report_path`" = is_file(target))

R/add_chapter.R

@@ -18,7 +18,7 @@
 #' @importFrom fs is_dir is_file path
 #' @importFrom utils head tail
 #' @importFrom yaml read_yaml
-add_chapter <- function(report_path, title, filename, toc = TRUE) {
+add_chapter <- function(report_path = ".", title, filename, toc = TRUE) {
   assert_that(is.string(report_path), noNA(report_path), is_dir(report_path))
   target <- path(report_path, "_quarto.yml")
   stopifnot("no `_quarto.yml` found at `report_path`" = is_file(target))

R/add_cover.R

@@ -7,7 +7,7 @@
 #' @importFrom fs file_move is_dir is_file path
 #' @importFrom pdftools pdf_convert pdf_subset
 #' @importFrom yaml read_yaml write_yaml
-add_cover <- function(report_path, cover_pdf) {
+add_cover <- function(report_path = ".", cover_pdf) {
   assert_that(
     is.string(report_path),
     noNA(report_path),

R/add_index.R

@@ -8,7 +8,7 @@
 #' @importFrom assertthat assert_that is.string has_name noNA
 #' @importFrom fs is_dir is_file path
 #' @importFrom yaml read_yaml write_yaml
-add_index <- function(report_path) {
+add_index <- function(report_path = ".") {
   assert_that(is.string(report_path), noNA(report_path), is_dir(report_path))
   target <- path(report_path, "_quarto.yml")
   stopifnot("no `_quarto.yml` found at `report_path`" = is_file(target))

R/add_recommendations.R

@@ -5,6 +5,7 @@
 #' The file also add a table of contents, a list of figures and a list of
 #' tables to the pdf version of the report.
 #' @param report_path The path to the folder containing the report.
+#' Defaults to the current working directory.
 #' @param lof A logical value indicating whether to add a list of figures.
 #' Defaults to `TRUE`.
 #' If `TRUE`, a list of figures is added to the pdf version of the report.
@@ -17,7 +18,7 @@
 #' @importFrom utils head tail
 #' @importFrom yaml read_yaml write_yaml
 add_recommendations <- function(
-  report_path,
+  report_path = ".",
   lof = TRUE,
   lot = TRUE
 ) {

R/insert_missing_metadata.R

@@ -5,7 +5,7 @@
 #' @importFrom fs is_dir is_file path
 #' @importFrom stats setNames
 #' @importFrom yaml read_yaml write_yaml
-insert_missing_metadata <- function(report_path) {
+insert_missing_metadata <- function(report_path = ".") {
   assert_that(is.string(report_path), noNA(report_path), is_dir(report_path))
   target <- path(report_path, "_quarto.yml")
   stopifnot("no `_quarto.yml` found at `report_path`" = is_file(target))