added check for the file and add utils to imports

DESCRIPTION

@@ -1,7 +1,7 @@
 Package: ohcleandat
 Type: Package
 Title: One Health Data Cleaning and Quality Checking Package
-Version: 0.2.1
+Version: 0.2.2
 Authors@R: c(
     person("Collin", "Schwantes", email = "[email protected]", role = c("cre", "aut"), comment = c(ORCID = "0000-0003-4014-4896")),
     person("Johana", "Teigen", email = "[email protected]", role = "aut", comment = c(ORCID = "0000-0002-6209-2321")),
@@ -14,7 +14,7 @@ Description: This package provides useful functions to orchestrate analytics and
 License: MIT + file LICENSE
 Encoding: UTF-8
 LazyData: true
-RoxygenNote: 7.2.3
+RoxygenNote: 7.3.1
 Suggests: 
     knitr,
     rmarkdown
@@ -37,6 +37,7 @@ Imports:
     tibble,
     tidyr,
     tidyselect,
+    utils,
     validate
 Remotes: 
     ecohealthalliance/containerTemplateUtils,

NAMESPACE

@@ -6,6 +6,7 @@ export(combine_logs)
 export(correct_data)
 export(create_freetext_log)
 export(create_questionnaire_log)
+export(create_rules_from_template)
 export(create_translation_log)
 export(create_validation_log)
 export(detect_language)

R/create_rules_from_template.R

@@ -1,15 +1,27 @@
 #' Title
 #'
 #' @param name String. Name of rule set function e.g. create_rules_my_dataset
-#' @param dir String. Name of directory where file should be created
+#' @param dir String. Name of directory where file should be created. If it
+#' doesnt exist, a folder will be created.
 #' @param open Logical. Should the file be opened?
+#' @param showWarnings Logical. Should dir.create show warnings?
 #'
-#' @return
-#' @export
+#' @return String. File path of newly created file
+#' @export create_rules_from_template
 #'
 #' @examples
-create_rules_from_template <- function(name, dir = "/R", open = TRUE){
+#' \dontrun{
+#'     # create a ruleset and immediately open it
+#'     create_rules_from_template(name = "create_rules_field_data")
+#'     # create a ruleset and don't open it
+#'     create_rules_from_template(name = "create_rules_lab_data", open = FALSE)
+#'     # create a ruleset and store it in a different folder
+#'     create_rules_from_template(name = "create_rules_lab_data",
+#'     dir = "/path/to/rulesets" open = FALSE)
+#'     }
+create_rules_from_template <- function(name, dir = "/R", open = TRUE, showWarnings = FALSE){
 
+  dir.create(here::here("/R"),showWarnings = showWarnings, recursive = TRUE)
 
   template_text <- sprintf('%s <- function(){
     ## each rule should be named after the column its validating
@@ -43,16 +55,18 @@ create_rules_from_template <- function(name, dir = "/R", open = TRUE){
   file_path <- paste(dir,file_name,sep = "/")
   cat(template_text, file = file_path)
   if(open){
-    file.edit(file_path)
+    utils::file.edit(file_path)
   }
 
 
   return(file_path)
 
   status <- file.exists(here::here(file_path))
 
+  if(!status){
+    rlang::abort(sprintf("%s not created",file_path))
+  }
 
-  invisible(TRUE)
-
+  return(file_path)
 
 }