This page has been updated a lot in the past 3 years. Older revisions you might like more than this one:
| library(magrittr) | |
| df <- tibble::tibble( | |
| var_a = c("a", "b", "c", "d"), | |
| var_b = c(1.234, 12.34, 123.4, 1234) | |
| ) | |
| num_to_html <- function(num, separator = ".") { | |
| stringr::str_split_fixed(num, stringr::fixed(separator), n = 2) %>% | |
| as.data.frame() %>% |
| gist_to_carbon <- function( | |
| gist_id, | |
| file = "code.png", | |
| bg = "#4A90E2", | |
| bg_alpha = 1, | |
| theme = "shades-of-purple", | |
| font = "Fira+Code", | |
| lang = "auto", | |
| drop_shadow = TRUE, | |
| width = 680, |
| library(gt) | |
| library(gtExtras) | |
| library(dplyr) | |
| #> | |
| #> Attaching package: 'dplyr' | |
| #> The following objects are masked from 'package:stats': | |
| #> | |
| #> filter, lag | |
| #> The following objects are masked from 'package:base': |
| library(tidyverse) | |
| library(ggtext) | |
| library(grid) | |
| library(crayon) | |
| title <- "The <b><span style='color:#FF0000'>Sigmoid Function</span></b> and its <b><span style='color:#0000FF'>Derivative</span></b>" | |
| df <- data.frame(x = -5:5) | |
| ggplot(df, aes(x)) + |
| #Placeholder to change the name of the gist |