inst/example/demo.R

In rickyking/handsontable4r: handsontable4r

library(handsontable4r)
library(tidyverse)
library(kableExtra)
# handsontable4r(data.frame(x = seq(1, 10), y = seq(11, 20)))
min_color <- list(pch = ".", cex = 4, col = "red")
max_color <- list(pch = ".", cex = 4, col = "green")
spline_height <- 50
spline_width <- 300
df <- readRDS("inst/example/dftbl.rds") %>%
  rowwise() %>%
  mutate(
    `Trend 1M` = kableExtra::spec_plot(
      `Trend 1M`,
      min = min_color,
      max = max_color,
      height = spline_height,
      res = 300,
      width = spline_width
    )[["svg_text"]],
    `Trend Rel 1M` = kableExtra::spec_plot(
      `Trend Rel 1M`,
      min = min_color,
      max = max_color,
      height = spline_height,
      res = 300,
      width = spline_width
    )[["svg_text"]],
    `Volume` = kableExtra::spec_plot(
      `Volume`,
      min = min_color,
      max = max_color,
      polymin = 0,
      height = spline_height,
      res = 300,
      width = spline_width
    )[["svg_text"]],
    `ETF Weight` = `ETF Weight`/100
  )

handsontable4r(df %>% select(-ticker),
               rownames = df$ticker,
               rowHeaderWidth = 100) %>%
  hot_heatmap(cols = 2:7,
              color_scale = c("#f87274", "#FFFFFF", "#63be7b")) %>%
  hot_col(col = c("Last", "TrdVal. Avg 1M", "TrdVal. Min 1M"), format = "$0,000.00") %>%
  hot_col(
    col = c("Trend 1M", "Trend Rel 1M", "Volume"),
    renderer = htmlwidgets::JS("Handsontable.renderers.HtmlRenderer")
  ) %>%
  hot_col("ETF Weight", format = "0.00%")

handsontable4r(df %>% select(-ticker),
               rownames = df$ticker,
               nestedHeaders = htmlwidgets::JS("
                                               [
                                                [{label: '', colspan: 2},
                                                 {label: 'Chg%', colspan: 3},
                                                 {label: 'Price Diverge & Signals', colspan: 4},
                                                 {label: 'Trend', colspan: 2},
                                                 {label: 'Turnover', colspan: 2},
                                                 {label: 'Information', colspan: 3}
                                                ],
                                                [
'Last',
'1D%',
'Rel 5D',
'Rel 1M',
'C/S',
'S/M',
'M/L',
'Volume',
'Trend 1M',
'Trend Rel 1M',
'TrdVal. Avg 1M',
'TrdVal. Min 1M',
'name',
'NAICSSector',
'ETF Weight'
                                                ]
                                               ]
                                               "),
               rowHeaderWidth = 100) %>%
  hot_heatmap(cols = 2:7,
              color_scale = c("#f87274", "#FFFFFF", "#63be7b")) %>%
  hot_col(col = c("Last", "TrdVal. Avg 1M", "TrdVal. Min 1M"), format = "$0,000.00") %>%
  hot_col(
    col = c("Trend 1M", "Trend Rel 1M", "Volume"),
    renderer = htmlwidgets::JS("Handsontable.renderers.HtmlRenderer")
  ) %>%
  hot_col("ETF Weight", format = "0.00%")