tmp_xlsx <- tempfile()
xlsxFile <- system.file("extdata", "readTest.xlsx", package = "openxlsx2")
unzip(xlsxFile, exdir = tmp_xlsx)
wb <- wb_load(xlsxFile)
styles_xml <- sprintf("%s/xl/styles.xml", tmp_xlsx)
# is external pointer
sxml <- read_xml(styles_xml)
# is character
font <- xml_node(sxml, "styleSheet", "fonts", "font")
# is again external pointer
as_xml(font)
Run the code above in your browser using DataLab