R/do_rmd_doc.R

In olesendan/doutilitiesr: Samling af functioner til R

#' @title
#' oprette rmd dok på do template   # Navn på funktion

#' @description
#' dette er en function til at oprette nye rmds

#' @details
#' den bruger specielle do templates til tufte el basic rmd
#
# Some useful keyboard shortcuts for package authoring:
#
#   Build and Reload Package:  'Ctrl + Shift + B'
#   Check Package:             'Ctrl + Shift + E'
#   Test Package:              'Ctrl + Shift + T'


#' @export
# oprette doc udfra Iyt-ti knitr tufte tempplate
do_rmd_doc <- function(.navn = "", .type = "tufte", .dir = ".") {

  # parametere for func
  #

  fd <- here::here(.dir) # directory hvor rmd skal gemmes
  sd <- "rmarkdown/templates/"
  sft <- "tufte_rmd/skeleton/"
  sfb <- "basic_rmd/skeleton/"
  sf <- "skeleton.rmd"
  ft <- ".rmd"
  ppp <- "doutilitiesr"

  nnn <- paste0( as.character( .navn), ft)
  ttt <- as.character( .type)

  # switch til at vælge tempplate ift type
  fff <- switch( ttt,
                 tufte = paste0( sd, sft),
                 basic = paste0( sd, sfb)
  )

  if ( !fs::file_exists( paste0( fd, nnn))) {
    fs::file_copy( system.file( fff, sf, package = ppp), paste0( fd, nnn))
  }
  fs::file_show( paste0( fd, nnn))

}