handle infinite sheet number

tidyverse · Mar 11, 2024 · d081c12 · d081c12
1 parent 90f77c3
commit d081c12
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/R/read_excel.R b/R/read_excel.R
@@ -237,8 +237,10 @@ standardise_sheet <- function(sheet, range, sheet_names) {
 
   if (is.numeric(sheet)) {
     if (sheet < 1) {
+      if(is.infinite(sheet)) sheet <- -length(sheet_names)
       length(sheet_names) + sheet
     } else {
+      if(is.infinite(sheet)) sheet <- length(sheet_names)
       floor(sheet) - 1L
     }
   } else if (is.character(sheet)) {