R/code.R

In phuse-org/valtools: Automate Validated Package Creation

# The rest of this documentation is in case.R
#' @export
#' @rdname new_item
vt_use_test_code <- function(name, username = vt_username(), open = interactive(),
                             add_before = NULL, add_after = NULL) {

  name <- vt_set_ext(name, ext = "R")

  is_valid_name(name)

  # Create file to write in
  code_name <- create_item("test_code", name)

  ## if the file didnt exist before, populate with contents
  if (file.size(code_name) == 0){

    # Create the content to write
    render_template("test_code", output = code_name,
                    data = list(
                      username = username,
                      editDate = as.character(Sys.Date())
                    ))
    
    # Add file to validation configuration
    vt_add_file_to_config(
      filename = name,
      after = {{add_after}},
      before = {{add_before}}
      )
  }



  if(open){
    edit_file(code_name) # nocov
  }

  invisible(code_name)

}