diff --git a/R/configTests.R b/R/configTests.R
index 16e5cbc..921007c 100644
--- a/R/configTests.R
+++ b/R/configTests.R
@@ -738,8 +738,6 @@ make_scaled_impact_plots <- function(
       theme      = NULL
     )
 ){
-  ###### Get from FrEDI Namespace ######
-  addListNames <- utils::getFromNamespace("addListNames", "FrEDI")
   
   ### Other values
   # years      <- c("NA", "2010", "2090")
@@ -795,12 +793,12 @@ make_scaled_impact_plots <- function(
     })
     ### Add names
     labels_x <- types_x[["label"]]
-    list_x   <- list_x |> addListNames(labels_x)
+    list_x   <- list_x |> set_names(labels_x)
     ### Return
     return(list_x)
   })
   ### Add names
-  list0   <- list0 |> addListNames(models)
+  list0   <- list0 |> set_names(models)
   ### Return
   return(list0)
 } ### End plot_DoW_by_sector
diff --git a/R/configTests_utils.R b/R/configTests_utils.R
index 884ecea..70ec4d8 100644
--- a/R/configTests_utils.R
+++ b/R/configTests_utils.R
@@ -283,8 +283,7 @@ create_scaledImpact_plot <- function(
   
   ###### Get from FrEDI Namespace ######
   get_colScale <- utils::getFromNamespace("get_colScale", "FrEDI")
-  addListNames <- utils::getFromNamespace("addListNames", "FrEDI")
-  
+
   ###### Data ######
   df0        <- data |> filter(sector     == sector0)
   df0        <- df0  |> filter(impactType == impType0)
@@ -527,8 +526,7 @@ create_scaledImpact_plots <- function(
   
   ###### Get from FrEDI Namespace ######
   get_colScale <- utils::getFromNamespace("get_colScale", "FrEDI")
-  addListNames <- utils::getFromNamespace("addListNames", "FrEDI")
-  
+
   ###### Format Data ######
   ### Filter to sector and convert to data frame
   # data |> glimpse()
@@ -792,7 +790,7 @@ create_scaledImpact_plots <- function(
       
       ### Name the plots
       # listTypes_j |> length() |> print(); cImpTypes |> print()
-      listTypes_j <- listTypes_j |> addListNames(cImpTypes)
+      listTypes_j <- listTypes_j |> set_names(cImpTypes)
       
       ### Arrange plot list
       # plotGrid_j  <- ggarrange(plotlist=listTypes_j, ncol=1, nrow=nRow, common.legend=F, legend="none")
@@ -830,11 +828,11 @@ create_scaledImpact_plots <- function(
       return(plotGrid_j)
     })
     ### Name the plots
-    listYears0 <- listYears0 |> addListNames(cImpYears)
+    listYears0 <- listYears0 |> set_names(cImpYears)
     return(listYears0)
   }) ### End iter1_i
   ### Name the plots
-  listIter1 <- listIter1 |> addListNames(cIter1)
+  listIter1 <- listIter1 |> set_names(cIter1)
   
   ###### Return ######
   ### Return the plot
diff --git a/R/createSystemData.R b/R/createSystemData.R
index a3d11b1..a78f03b 100644
--- a/R/createSystemData.R
+++ b/R/createSystemData.R
@@ -10,6 +10,7 @@ createSystemData <- function(
     return      = TRUE,
     byState     = FALSE
 ){
+  
   ###### Set up the environment ######
   ### Level of messaging (default is to message the user) and save behavior
   msgUser     <- !silent