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)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.