fixed warning with label

ModelOriented · Jun 6, 2020 · 8dcd429 · 8dcd429
1 parent f3b279c
commit 8dcd429
Showing 1 changed file with 1 addition and 4 deletions.
diff --git a/R/plot_aggregated_profiles.R b/R/plot_aggregated_profiles.R
@@ -137,10 +137,7 @@ plot.aggregated_profiles_explainer <- function(x, ...,
   # If null add subtitle
   if (is.null(subtitle)){
     # get model names and classes
-    model_name <- c()
-    for (i in seq_along(dfl)){
-      model_name[i] <- paste(unique(dfl[[i]]$`_label`), collapse = ", ", sep = ",")
-    }
+    model_name <- unique(unlist(sapply(dfl, function(tmp) tmp$`_label`)))
     subtitle_models <- paste(model_name, collapse = ", ", sep = ",")
     subtitle <- paste("Created for the", subtitle_models, "model")
   }