[xlsb] add data validations

R/wb_load.R

@@ -1571,6 +1571,17 @@ wb_load <- function(
  )
  }
 
+ for (i in seq_along(wb$worksheets)) {
+ if (!wb$is_chartsheet[[i]])
+ wb$worksheets[[i]]$extLst <-
+ stringi::stri_replace_all_fixed(
+ wb$worksheets[[i]]$extLst,
+ xti$name_id,
+ xti$sheets,
+ vectorize_all = FALSE
+ )
+ }
+
  ### for external references we need to get the required sheet names first
  # For now this is all a little guess work
 
@@ -1648,6 +1659,16 @@ wb_load <- function(
  vectorize_all = FALSE
  )
  }
+
+
+ if (!wb$is_chartsheet[[i]])
+ wb$worksheets[[j]]$dataValidations <-
+ stringi::stri_replace_all_fixed(
+ wb$worksheets[[j]]$dataValidations,
+ nri$name_id,
+ nri$name,
+ vectorize_all = FALSE
+ )
  }
 
  }