fixes for R 3.6.3

JanMarvin · Aug 10, 2023 · 5a29bcb · 5a29bcb
1 parent e9b947a
commit 5a29bcb
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/wb_load.R b/R/wb_load.R
@@ -368,7 +368,7 @@ wb_load <- function(
  } else if (sheets$typ[i] == "worksheet") {
  content_type <- read_xml(ContentTypesXML)
  override <- xml_attr(content_type, "Types", "Override")
- overrideAttr <- as.data.frame(do.call("rbind", override))
+ overrideAttr <- as.data.frame(do.call("rbind", override), stringsAsFactors = FALSE)
  xmls <- basename(unlist(overrideAttr$PartName))
  drawings <- grep("drawing", xmls, value = TRUE)
  wb$add_worksheet(sheets$name[i], visible = is_visible[i], has_drawing = !is.na(drawings[i]))