[pt] fix non distinct names in wb_data object (#911)

R/class-workbook.R

@@ -1395,6 +1395,11 @@ wbWorkbook <- R6::R6Class(
         }
       }
 
+      if (any(sel <- duplicated(tolower(names(x))))) {
+        nms <- names(x)
+        names(x) <- fix_pt_names(nms)
+      }
+
       # for now we use a new worksheet
       if (add_sheet) {
         self$add_worksheet()

R/helper-functions.R

@@ -488,6 +488,25 @@ distinct <- function(x) {
   unis[dups == FALSE]
 }
 
+# append number of duplicated value.
+# @details c("Foo", "foo") -> c("Foo", "foo2")
+# @param x a character vector
+fix_pt_names <- function(x) {
+  lwrs <- tolower(x)
+
+  dups <- duplicated(lwrs)
+  dups <- stringi::stri_unique(lwrs[dups])
+
+  for (dup in dups) {
+    sel <- which(lwrs == dup)
+    for (i in seq_along(sel)[-1]) {
+      x[sel[i]] <- paste0(x[sel[i]], i)
+    }
+  }
+
+  x
+}
+
 cacheFields <- function(wbdata, filter, rows, cols, data, slicer) {
   sapply(
     names(wbdata),

tests/testthat/test-helper-functions.R

@@ -214,6 +214,16 @@ test_that("distinct() works", {
 
 })
 
+test_that("fix_pt_names() works", {
+
+  x <- c("Foo", "foo", "bar", "FOO", "bar", "x")
+
+  exp <- c("Foo", "foo2", "bar", "FOO3", "bar2", "x")
+  got <- fix_pt_names(x)
+  expect_equal(exp, got)
+
+})
+
 test_that("validate_colors() works", {
 
   col <- c("FF0000FF", "#0000FF", "000FF", "#FF000FF", "blue")