# NOT RUN {
df <- data.frame(readOrWrite = rep(c("readOnly", "change me!"), 5),
secret = rep("tops3cr3t", 10), stringsAsFactors = FALSE)
hot <- rhandsontable::rhandsontable(df, rowHeaders = NULL)
hot <- dq_hot_cell(hot, seq(1, 10, 2), 1:2, readOnly = TRUE)
hot <- dq_hot_cell(hot, seq(1, 10, 2), 2, type = "password")
hot
# }
Run the code above in your browser using DataLab