create initialize_cell function

[JanMarvin]

@cvaldezerea if you want to have a look, this branch should be much faster than the previous solution. But this is highly experimental and needs some more thinking

We have to avoid duplicated cell entries and should never remove cells that are already available in the workbook. Testing this is highly appreciated.

library(openxlsx2)

mm <- matrix(NA, ncol = 26, nrow = 100)

# write data and add color
beg <- Sys.time()
wb <- wb_workbook()$add_worksheet()
wb$add_data(x = mm, colNames = FALSE, na.strings = NULL)
wb$add_fill(dims = "A1:Z100", color = wb_color("yellow"))
end <-  Sys.time()
end - beg
#> Time difference of 0.1001139 secs

# write no data and add color
beg <- Sys.time()
wb <- wb_workbook()$add_worksheet()
wb$add_fill(dims = "A1:Z100", color = wb_color("yellow"))
end <-  Sys.time()
end - beg
#> Time difference of 0.007579803 secs

# workbook has 4 cells, add the remaining cells
beg <- Sys.time()
wb <- wb_workbook()$add_worksheet()
wb$add_data(dims = "A1", x = 1, colNames = FALSE)
wb$add_data(dims = "A100", x = 1, colNames = FALSE)
wb$add_data(dims = "Z1", x = 5, colNames = FALSE)
wb$add_data(dims = "Z100", x = 5, colNames = FALSE)
wb$add_fill(dims = "A1:Z100", color = wb_color("yellow"))
end <-  Sys.time()
end - beg
#> Time difference of 0.01585579 secs

[JanMarvin]

I'm a bit surprised that the first function is the slowest, but that might be spurious.

[JanMarvin]

library(openxlsx2)

beg <- Sys.time()
wb <- wb_workbook()$add_worksheet()
wb$add_fill(dims = "A1:Z10000", color = wb_color("yellow"))
end <-  Sys.time()
end - beg
#> Time difference of 0.5600958 secs


mm <- matrix(NA, ncol = 26, nrow = 10000)

beg <- Sys.time()
wb <- wb_workbook()$add_worksheet()
wb$add_data(x = mm, colNames = FALSE, na.strings = NULL)
wb$add_fill(dims = "A1:Z10000", color = wb_color("yellow"))
end <-  Sys.time()
end - beg
#> Time difference of 0.4300249 secs


beg <- Sys.time()
wb <- wb_workbook()$add_worksheet()
wb$add_data(dims = "A1", x = 1, colNames = FALSE)
wb$add_data(dims = "A10000", x = 1, colNames = FALSE)
wb$add_data(dims = "Z1", x = 5, colNames = FALSE)
wb$add_data(dims = "Z10000", x = 5, colNames = FALSE)
wb$add_fill(dims = "A1:Z10000", color = wb_color("yellow"))
end <-  Sys.time()
end - beg
#> Time difference of 1.290522 secs

[JanMarvin]

Needs further testing, but that can be done from the main branch as well.