yjunechoe

order_by_name <- function(x) {
  x[order(names(x))]
}
type_to_collector <- function(type) {
  # Code adopted from `readr:::collector_find()`
  get(paste0("col_", type), envir = asNamespace("readr"))
}
specs_to_list <- function(specs) {
  if (inherits(specs, "col_spec")) {
    specs <- specs$cols

yjunechoe

library(xml2)
x <- read_html('
<picture>
  <source media="(prefers-color-scheme: dark)" srcset="man/figures/README-/setup-io-dark.svg">
  <img src="man/figures/README-/setup-io.svg" style="display: block; margin: auto;" />
</picture>
')

img_src <- xml_find_all(x, ".//img[not(starts-with(@src, 'http'))]")
source_srcset <- xml_find_all(x, ".//source[not(starts-with(@srcset, 'http'))]")

yjunechoe

yjunechoe

library(rvest)
library(chromote)

# Open page in headless chrome
url <- "https://www.kulturdirektoratet.no/web/guest/stotteordning/-/vis/digitalisering-mangfold-dialog-samarbeid/tildelinger"
b <- ChromoteSession$new()
b$Page$navigate(url, wait_ = TRUE); Sys.sleep(3)

# Get document
rootnode <- b$DOM$getDocument()$root$nodeId

yjunechoe

sprintf_fmt_bottom_linter <- function() {
  xpath <- "
  //SYMBOL_FUNCTION_CALL[text() = 'sprintf']
    /parent::expr/following-sibling::expr[last()]
    /preceding-sibling::*[2][not(
      self::SYMBOL_SUB[text() = 'f' or text() = 'fm' or text() = 'fmt']
    )]
    /preceding-sibling::expr[
      preceding-sibling::*[2][
        self::SYMBOL_SUB[text() = 'f' or text() = 'fm' or text() = 'fmt']

yjunechoe

# gt-camcorder prototype using examples from {gt} vignette
# -- https://gt.rstudio.com/articles/creating-summary-lines.html

library(devtools)
dev_mode(on = TRUE)

# Install my fork in dev-mode with gt camcorder draft
remotes::install_github("yjunechoe/camcorder@gt-support")

library(camcorder)

yjunechoe

---
title: "Interactive aggregation"
format: html
editor: visual
---

## Define data

```{r}
ojs_define(mydata = palmerpenguins::penguins)

yjunechoe

---
title: "incremental table"
format: revealjs
editor: visual
---

## Make `{gt}` table

```{css}
table.gt_table {

yjunechoe

library(shiny)
library(shinyTree)
library(highcharter)
library(dplyr)

pokemon_df <- highcharter::pokemon |> 
  select(primary = type_1, secondary = type_2, pokemon) |> 
  mutate(secondary = coalesce(secondary, primary))
  
pokemon_list <- shinyTree::dfToTree(pokemon_df)

yjunechoe

library(RSelenium)

# Google play store page for twitter app
url <- "https://play.google.com/store/apps/details?id=com.twitter.android"

# RSelenium firefox browser setup
driver <- rsDriver(browser = 'firefox', verbose = FALSE, port = 123L)
session <- driver$client
session$open()