R/cpp_template.R

In mrc-ide/drjacoby: Flexible Markov Chain Monte Carlo via Reparameterization

#' Create template for cpp
#'
#' @param save_as Path of (.cpp) file to create, relative to root of active project.
#'
#' @export
cpp_template <- function (save_as){
  assert_single_string(save_as)
  ext <- tools::file_ext(save_as)
  if(ext != "cpp"){
    stop("File must be .cpp")
  }
  usethis::use_template(
    template = "cpp_template.cpp",
    save_as = save_as,
    open = rlang::is_interactive(),
    package = "drjacoby"
  )
}