Fix tests for plot_Scatterplots() ... rebuild

Author: RLumSK

BayLum.BuildResults/BayLum-Ex.pdf

@@ -105,14 +105,15 @@ plot_Scatterplots <- function(
 
   # Verify input --------------------------------------------------------------------------------
   if (is.null(attributes(object)$class) || attributes(object)$class != "mcmc.list")
-    if(attributes(object)$class != "data.frame"){
+    if(class(object) != "data.frame"){
       stop("[plot_Scatterplots()] Wrong input, only objects of type 'mcmc.list' or single 'data.frame' are allowed. Please check the manual!",
            call. = FALSE
       )
 
 
     }else{
 
+
       ##check whether the data.frame has two columns
       if(ncol(object) < 2)
         stop("[plot_Scatterplots()] Your 'data.frame' needs at least two columns!",

BayLum.BuildResults/BayLum-manual.pdf

@@ -8,7 +8,7 @@ test_that("Full function test", {
 
   ##force function stop
   expect_error(plot_Scatterplots("test"),
-               regexp =  "Wrong input, only objects of type 'mcmc.list' are allowed. Please check the manual!")
+               regexp =  "Wrong input, only objects of type 'mcmc.list' or single 'data.frame' are allowed. Please check the manual!")
   expect_error(plot_Scatterplots(object = AgeS$Sampling, variables = c("A", "B")),
                regexp = "You can only select one variable at the time!")
   expect_error(plot_Scatterplots(object = AgeS$Sampling, variables = c("B")),