inst/testing/executable.R

setwd("~/MyPackages/hwriteXLSX/inst/testing")

A1 <- cell(1, 1, 9.9, numberFormat="2Decimal", fill="green")
B3 <- cell(2, 3, "µµ", bold=TRUE, color="red", comment="Stéphane")
sheet <- list(Sheet1 = c(A1, B3))
# JSON string ready for json2xlsx
json <- jsonlite::toJSON(sheet, null="null", auto_unbox = TRUE)
hwriteXLSX:::json2xlsx2(json, outfile="executable.xlsx", overwrite = TRUE)
stla/hwriteXLSX documentation built on May 7, 2019, 10:40 a.m.