Fixed script issues

Author: StuartWheater

azure-pipelines.yml

@@ -251,19 +251,19 @@ jobs:
         dsbase.res <- covr::package_coverage(
             type = c("none"),
             code = c(
-                '"'"'library(testthat);
+                '"'"'
+                library(testthat);
                 output_file <- file("test_console_output_dsbase.txt");
                 sink(output_file);
                 sink(output_file, type = "message");
                 library(testthat);
-                junit_rep <- JunitReporter$new(
-                    file = "test_results_dsbase.xml");
-                    progress_rep <- ProgressReporter$new(max_failures = 999999);
-                    multi_rep <- MultiReporter$new(reporters = list(progress_rep, junit_rep));
-                    testthat::test_package("$(projectName)", filter = "_-", reporter = multi_rep, stop_on_failure = FALSE)'"'"')
-                )
+                junit_rep <- JunitReporter$new(file = "test_results_dsbase.xml");
+                progress_rep <- ProgressReporter$new(max_failures = 999999);
+                multi_rep <- MultiReporter$new(reporters = list(progress_rep, junit_rep));
+                testthat::test_package("$(projectName)", filter = "_-", reporter = multi_rep, stop_on_failure = FALSE)
+                '"'"'
             )
-        )
+        );
         base::saveRDS(dsbase.res, "test_results_dsbase.rds")'
 
       # display the test console output
@@ -324,17 +324,19 @@ jobs:
         dsdanger.res <- covr::package_coverage(
             type = c("none"),
             code = c(
-                '"'"'library(testthat);
+                '"'"'
+                library(testthat);
                 output_file <- file("test_console_output_dsdanger.txt");
                 sink(output_file);
                 sink(output_file, type = "message");
                 library(testthat);
                 junit_rep <- JunitReporter$new(file = "test_results_dsdanger.xml");
                 progress_rep <- ProgressReporter$new(max_failures = 999999);
                 multi_rep <- MultiReporter$new(reporters = list(progress_rep, junit_rep));
-                testthat::test_package("$(projectName)", filter = "smk_dgr-",reporter = multi_rep, stop_on_failure = FALSE)'"'"')
+                testthat::test_package("$(projectName)", filter = "smk_dgr-",reporter = multi_rep, stop_on_failure = FALSE)
+                '"'"'
             )
-        )
+        );
         base::saveRDS(dsdanger.res, "test_results_dsdanger.rds")'
 
       # Merge coverage results