Always upload artifacts

Author: etpeterson

.github/workflows/analysis.yml

@@ -133,6 +133,7 @@ jobs:
         run: Rscript --vanilla tests/IVIMmodels/unit_tests/analyze.r test_output.csv test_duration.csv
       - name: Upload figures
         uses: actions/upload-artifact@v3
+        if: always()
         with:
             name: Figures
             path: |
@@ -169,6 +170,7 @@ jobs:
         run: Rscript --vanilla tests/IVIMmodels/unit_tests/compare.r test_output.csv test_reference.csv tests/IVIMmodels/unit_tests/reference_output.csv test_results.csv
       - name: Upload data
         uses: actions/upload-artifact@v3
+        if: always()
         with:
             name: Comparison
             path: |

tests/IVIMmodels/unit_tests/compare.r

@@ -38,7 +38,7 @@ keep_columns_reference <- c("Algorithm", "Region", "SNR", "f", "Dp", "D", "f_mu"
 keep_columns_test <- c("Algorithm", "Region", "SNR", "index", "f", "Dp", "D", "f_fitted", "Dp_fitted", "D_fitted")
 
 test <- read_csv(test_file) %>%
-  select(keep_columns_test) %>%
+  select(all_of(keep_columns_test)) %>%
   # Convert Algorithm and Region to factors
   mutate(Algorithm = as.factor(Algorithm), Region = as.factor(Region))
 
@@ -94,7 +94,7 @@ if (nchar(reference_file) == 0) {
 
 # Read data from CSV files and select only relevant columns
 reference <- read_csv(reference_file) %>%
-  select(keep_columns_reference) %>%
+  select(all_of(keep_columns_reference)) %>%
   # Convert Algorithm and Region to factors
   mutate(Algorithm = as.factor(Algorithm), Region = as.factor(Region))