Improve check and warning message in plot_AbanicoPlot().

Author: mcol

R/plot_AbanicoPlot.R

@@ -673,9 +673,9 @@ plot_AbanicoPlot <- function(
     bw.test <- try(density(x = data[[i]][,1],
                            bw = bw),
                    silent = TRUE)
-    if(grepl(pattern = "Error", x = bw.test[1]) == TRUE) {
+    if (inherits(bw.test, "try-error")) {
       bw <- "nrd0"
-      .throw_warning("Option for bw not possible. Set to nrd0!")
+      .throw_warning("Option for 'bw' not valid, reset to 'nrd0'")
     }
   }
 

tests/testthat/test_plot_AbanicoPlot.R

@@ -259,7 +259,7 @@ test_that("more coverage", {
   ## further edge tests ... check for wrong bw parameter
   expect_warning(
     object = plot_AbanicoPlot(data = ExampleData.DeValues, bw = "tests"),
-    regexp = "Option for bw not possible. Set to nrd0!")
+    regexp = "Option for 'bw' not valid, reset to 'nrd0'")
 
   ## negative values
   df <-  ExampleData.DeValues