Merge pull request #293 from xoopR/bug-fix

fix small bug in `merge_cols.R`

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: distr6
 Title: The Complete R6 Probability Distributions Interface
-Version: 1.8.1
+Version: 1.8.2
 Authors@R:
     c(person(given = "Raphael",
              family = "Sonabend",
@@ -68,7 +68,12 @@ Authors@R:
       person(given = "Michal",
              family = "Lauer",
              role = "ctb",
-             email = "[email protected]"))
+             email = "[email protected]"),
+      person(given = "John",
+             family = "Zobolas",
+             role = "ctb",
+             email = "[email protected]",
+             comment = c(ORCID = "0000-0002-3609-8674")))
 Description: An R6 object oriented distributions package. Unified
     interface for 42 probability distributions and 11 kernels including
     functionality for multiple scientific types. Additionally

R/merge_cols.R

@@ -12,7 +12,7 @@
     ))
   }
 
-  if (dim(arrs[[1L]]) == 2L) {
+  if (length(dim(arrs[[1L]])) == 2L) {
     out <- .merge_matpdf_cols(arrs)
   } else {
     out <- .merge_arrpdf_cols(arrs)