Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- library(DT)
- data <- round(data.frame(
- x = runif(5, 0, 5),
- y = runif(5, 0, 10),
- z = runif(5, 0, 20)
- ), 3)
- break_points <- function(x) stats::quantile(x, probs = seq(.05, .95, .05), na.rm = TRUE)
- red_shade <- function(x) round(seq(255, 40, length.out = length(x) + 1), 0) %>% {paste0("rgb(255,", ., ",", ., ")")}
- brks <- break_points(data)
- clrs <- red_shade(brks)
- #higlight whole table
- datatable(data) %>% formatStyle(names(data), backgroundColor = styleInterval(brks, clrs))
- #highlight by column
- brks <- apply(data, 2, break_points)
- clrs <- apply(brks, 2, red_shade)
- dt <- datatable(data)
- for(i in colnames(data)){
- dt <- dt %>% formatStyle(i, backgroundColor = styleInterval(brks[,i], clrs[,i]))
- }
- dt
- #highlight by row
- ??? No clude whow to do...
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement