fix for empty checklists

DESCRIPTION

@@ -1,8 +1,8 @@
 Package: robis
 Title: Ocean Biogeographic Information System (OBIS) Client
 Description: Client for the Ocean Biogeographic Information System (<https://obis.org>).
-Version: 2.1.8
-Date: 2019-06-01
+Version: 2.1.9
+Date: 2019-06-06
 Authors@R: c(
     person("Pieter", "Provoost", , "pieterprovoost@gmail.com", c("cre", "aut")),
     person("Samuel", "Bosch", , "mail@samuelbosch.com", role = "aut"),

NEWS.md

@@ -1,3 +1,7 @@
+# robis 2.1.9
+
+Fix for empty checklists.
+
 # robis 2.1.8
 
 Critical fix for `occurrence()` bug introduced in version 2.1.7.

R/checklist.R

@@ -39,7 +39,6 @@ checklist <- function(
   verbose = FALSE
 ) {
 
-
   result_list <- list()
   last_page <- FALSE
   partition <- 0
@@ -79,13 +78,19 @@ checklist <- function(
       last_page <- TRUE
     }
 
-    result_list[[partition + 1]] <- res$results
-    fetched <- fetched + nrow(res$results)
+    if (is.data.frame(res$results)) {
+      result_list[[partition + 1]] <- res$results
+      fetched <- fetched + nrow(res$results)
+    }
     log_progress(fetched, total)
 
   }
 
-  data <- bind_rows(result_list)
-  data <- data[order(data$records, decreasing = TRUE),]
-  return(data)
+  if (length(result_list) > 0) {
+    data <- bind_rows(result_list)
+    data <- data[order(data$records, decreasing = TRUE),]
+    return(data)
+  } else {
+    return(data.frame())
+  }
 }

R/util.R

@@ -64,7 +64,11 @@ empty_cols <- function(df) {
 }
 
 log_progress <- function(total, count) {
-  pct <- floor(total / count * 100)
-  if (pct > 100) pct <- 100
+  if (count > 0) {
+    pct <- floor(total / count * 100)
+    if (pct > 100) pct <- 100
+  } else {
+    pct <- 100
+  }
   message(paste0("\rRetrieved ", total, " records of approximately ", count, " (", pct, "%)", sep = ""), appendLF = FALSE)
 }