Rework 'dsDanger' support

Author: StuartWheater

azure-pipelines.yml

@@ -335,7 +335,7 @@ jobs:
                 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-|math_dgr-",reporter = multi_rep, stop_on_failure = FALSE)
+                testthat::test_package("$(projectName)", filter = "_dgr-|datachk_dgr-|smk_dgr-|arg_dgr-|disc_dgr-|smk_expt_dgr-|expt_dgr-|math_dgr-", reporter = multi_rep, stop_on_failure = FALSE)
                 '"'"'
             )
         );
@@ -345,16 +345,27 @@ jobs:
       cat test_results_dsbase.txt test_results_dsdanger.txt > $(Pipeline.Workspace)/logs/test_console_output.txt
       xml_grep --pretty_print indented --wrap "testsuites" --descr "" --cond "testsuite" test_results_dsbase.xml test_results_dsdanger.xml > test_results.xml
 
+      # Create 'coveragelist.csv'
+      # sudo R -q -e '
+      #   library(covr);
+      #   dsbase.res   <- base::readRDS("test_results_dsbase.rds")
+      #   dsdanger.res <- base::readRDS("test_results_dsdanger.rds")
+      #   write.csv(
+      #       coverage_to_list(
+      #           c(dsbase.res, dsdanger.res)
+      #       ),
+      #       "coveragelist.csv"
+      #   )'
+
       # Create 'coveragelist.csv'
       sudo R -q -e '
         library(covr);
-        dsbase.res   <- base::readRDS("test_results_dsbase.rds")
-        dsdanger.res <- base::readRDS("test_results_dsdanger.rds")
+        dsbase.res <- base::readRDS("test_results_dsbase.rds")
         write.csv(
             coverage_to_list(
-                c(dsbase.res, dsdanger.res)
-                "coveragelist.csv"
-            )
+                dsbase.res
+            ),
+            "coveragelist.csv"
         )'
 
       # display the test console output