From ed9a956f6c547ffe0d0f64fd79b9d1570a85b658 Mon Sep 17 00:00:00 2001
From: Ellis Hughes <ellis.h.hughes@gsk.com>
Date: Mon, 8 Nov 2021 15:01:07 -0800
Subject: [PATCH] Undo changes from debugging

---
 R/validate.R | 18 ++++++------------
 1 file changed, 6 insertions(+), 12 deletions(-)

diff --git a/R/validate.R b/R/validate.R
index 4f13836..eb9acd3 100644
--- a/R/validate.R
+++ b/R/validate.R
@@ -338,7 +338,7 @@ copy_validation_content <- function(pkg = ".", src = pkg){
   
 
   if(validation_directory != validation_output_directory){
-    # tryCatch({
+    tryCatch({
 
       if(!dir.exists(file.path(pkg, validation_output_directory))){
         dir.create(file.path(pkg, validation_output_directory),recursive = TRUE)
@@ -352,12 +352,6 @@ copy_validation_content <- function(pkg = ".", src = pkg){
         recursive = TRUE,
         overwrite = TRUE)
       
-      writeLines(
-        con = "c:/Users/ehh82309/OneDrive - GSK/Documents/test_list.csv",
-        list.files(path = pkg, all.files = TRUE,recursive = TRUE),
-        sep = "\n"
-      )
-
       ## copy validation Rmd
       file.copy(
         from = file.path(pkg, "vignettes", get_config_report_rmd_name()),
@@ -372,11 +366,11 @@ copy_validation_content <- function(pkg = ".", src = pkg){
         to = file.path(pkg, validation_output_directory, "R/Function_Roxygen_Blocks.R"),
         overwrite = TRUE)
 
-    # },
-    # error = function(e) {
-    #   abort(paste0(c("Error in moving validated content", e), sep = .Platform$file.sep),
-    #         class = "vt.buildFail")
-    # })
+    },
+    error = function(e) {
+      abort(paste0(c("Error in moving validated content", e), sep = .Platform$file.sep),
+            class = "vt.buildFail")
+    })
   }
 
   invisible(TRUE)