tests/fns.R

In packer: An Opinionated Framework for Using 'JavaScript'

create_tmp_package <- function(){
  tmp <- tempdir()
  # make sure it's empty
  files <- list.files(tmp)
  sapply(files, empty, dir = tmp)
  suppressMessages(usethis::create_package(tmp))
  return(tmp)
}

empty <- function(file, dir = tmp){
  path <- file.path(dir, file)
  unlink(file, recursive = TRUE, force = TRUE)
}

delete_tmp_package <- function(tmp){
  unlink(tmp, recursive = TRUE, force = TRUE)
}

create_tmp_golem <- function(){
  tmp <- tempdir()
  suppressMessages(
    golem::create_golem(
      tmp, 
      open = FALSE,
      check_name = FALSE
    )
  )
  return(tmp)
}

create_tmp_project <- function(){
  tmp <- tempdir()
  suppressMessages(usethis::create_project(tmp))
  return(tmp)
}

create_tmp_ambiorix <- function(){
  tmp <- tempdir()
  # make sure it's empty
  files <- list.files(tmp)
  sapply(files, empty, dir = tmp)
  suppressMessages(usethis::create_package(tmp))
  writeLines(
    "build()$start()",
    file.path(tmp, "app.R")
  )
  return(tmp)
}