coloring cells using rhandsontable

handsontable_heatmap.R

DF = data.frame(
  title = 1:4,
  dummy = rep(NA, 4),
  desc = c("1", "2", "3", 
           '<span style="width:100px;height:100px;background:#354B96;display:inline-block;color:white;">5</span>'),
  stringsAsFactors = FALSE
)
library(rhandsontable)

rhandsontable(DF, allowedTags = "<em><b><span><strong><a><big>", 
              width = 800, height = 500, rowHeaders = FALSE) %>%
  hot_cols(colWidths = c(200, 200, 100)) %>%
  hot_col(1:3, renderer = NULL) %>%
  hot_col(1:3, renderer = htmlwidgets::JS("safeHtmlRenderer"))