avoid integer overflow in setRowHeights(). closes #506

ycphs · Oct 9, 2024 · cb3c123 · cb3c123
1 parent a4a5a17
commit cb3c123
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/helperFunctions.R b/R/helperFunctions.R
@@ -978,7 +978,7 @@ get_worksheet_entries <- function(wb, sheet) {
   # get boolean vector of text entries
   typ <- (dat$t == 1) & !is.na(dat$t)
   # get text entry strings
-  str <- unlist(wb$sharedStrings[as.integer(val)[typ] + 1])
+  str <- unlist(wb$sharedStrings[as.numeric(val)[typ] + 1])
   # remove xml tags
   str <- gsub("<.*?>", "", str)
   # write strings to vector of entries