Read textboxes

[JanMarvin]

This SO inspired me to read text box content:

library(openxlsx2)
wb <- wb_load("~/Downloads/Book1.xlsx")

# search drawings on page and convert textbox to character vector
has_a_txtbox <- which(grepl("xdr:txBody", wb$drawings))
for (i in has_a_txtbox) {
  xdr_sp <- xml_node(wb$drawings[[i]], "xdr:wsDr", "xdr:oneCellAnchor", "xdr:sp")
  a_p <- xml_node(xdr_sp, "xdr:sp", "xdr:txBody", "a:p")
  if (length(a_p)) {
    a_r <- xml_node(a_p, "a:p", "a:r")
    # remove the "a" namespace and wrap in inlineStr
    a <- gsub("a:", "", a_r)
    is <- vapply(a, xml_node_create, "", xml_name = "is")
    # return output
    message("drawing ", i)
    print(openxlsx2:::is_to_txt(is))
  }
}
#> drawing 1
#> [1] "This is a test text box"        "This is a text box but in Bold"
#> [3] "Char- ABC"                      "Int -12345"                    
#> [5] "Varchar- 123Char"

Please feel free to expand this into a wb_ function for the package if you want it. Similar we could provide a wb_add_textbox() function if someone is willing to research it a bit further. Start with some drawing functions like wb_add_image() and fmt_txt()and research the basic logic. It should not be overly complicated.