Richard Iannone rich-iannone
rich-iannone
/ information_palmerpenguins.R
Last active
January 19, 2021 23:48
A pointblank information report for the `peguins` dataset in the `palmerpenguins` package
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| library(pointblank) | |
| library(palmerpenguins) | |
| informant_pp <- | |
| create_informant( | |
| read_fn = ~ palmerpenguins::penguins, | |
| tbl_name = "penguins", | |
| label = "The `penguins` dataset from the **palmerpenguins** 📦." | |
| ) %>% | |
| info_columns( |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| library(usethis) | |
| labels <- | |
| c( | |
| "Blocked (╥﹏╥)", | |
| "Difficulty: ③ Advanced", | |
| "Difficulty: ② Intermediate", | |
| "Difficulty: ① Novice", | |
| "Effort: ③ High", | |
| "Effort: ② Medium", |
rich-iannone
/ news-orgs-early.R
Created
April 5, 2022 16:46
An in-progress build of a gt table that uses the `2022-04-05/news_orgs.csv` TidyTuesday dataset
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| library(gt) | |
| library(tidyverse) | |
| # Table reading | |
| news_orgs <- | |
| readr::read_csv( | |
| file = 'https://raw.githubusercontent.com/rfordatascience/tidytuesday/master/data/2022/2022-04-05/news_orgs.csv', | |
| col_types = cols( | |
| publication_name = col_character(), | |
| parent_publication = col_character(), |
rich-iannone
/ gt-color-contrast-computation-comparison.R
Last active
October 20, 2023 15:31
This gist generates a gt table that compares text color choices from the WCAG and APCA contrast methods. Implemented in the `data_color()` function of the gt package, where the background is set first (based on cell data) and the color of the overlaid text is determined from the color contrast algorithm.
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| library(gt) | |
| library(tidyverse) | |
| color_sequence <- seq_along(grDevices::colors()) | |
| dplyr::tibble( | |
| x11c = grDevices::colors(), | |
| wcag = color_sequence, | |
| apca = color_sequence | |
| ) %>% |
rich-iannone
/ new_gt_0.8.0.Rmd
Created
December 2, 2022 17:38
This is the slightly revised R Markdown source of the Posit blog post at https://posit.co/blog/new-features-upgrades-in-gt-0-8-0/.
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| --- | |
| output: html_document | |
| --- | |
| ```{r setup, include=FALSE} | |
| knitr::opts_chunk$set(echo = TRUE) | |
| library(gt) | |
| library(gtsummary) | |
| library(tidyverse) | |
| ``` |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| library(gt) | |
| library(tidyverse) | |
| countrypops |> | |
| dplyr::filter(year == 2021) |> | |
| dplyr::select(country_code_2, population) |> | |
| dplyr::mutate(population_class = cut( | |
| population, | |
| breaks = scales::breaks_log(n = 20)(population) | |
| )) |> |
OlderNewer