fixes ropensci#244 drop=FALSE

richardjtelford · Jun 19, 2020 · 0e03ec1 · 0e03ec1
1 parent eade1a7
commit 0e03ec1
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/get_download.R b/R/get_download.R
@@ -526,7 +526,7 @@ get_download.default <- function(x, verbose = TRUE) {
             take <- !(taxon.list$taxon.group == "Laboratory analyses" |
                         taxon.list$taxon.group == "Charcoal")
 
-            count.data <- t(cast_table[take, 7:ncol(cast_table)])
+            count.data <- t(cast_table[take, 7:ncol(cast_table), drop = FALSE])
             if ('alias' %in% colnames(taxon.list)) {
               colnames(count.data) <- taxon.list$alias[take]
             } else {
@@ -537,7 +537,7 @@ get_download.default <- function(x, verbose = TRUE) {
             # the same way as the previous:
 
             if (sum(take) > 0) {
-              lab.data <- t(cast_table[!take, 7:ncol(cast_table)])
+              lab.data <- t(cast_table[!take, 7:ncol(cast_table), drop = FALSE])
               colnames(lab.data) <- taxon.list$alias[!take]
             } else {
                 lab.data <- NULL