Skip to content

Instantly share code, notes, and snippets.

View EmilHvitfeldt's full-sized avatar

Emil Hvitfeldt EmilHvitfeldt

806 followers · 171 following
View GitHub Profile
@EmilHvitfeldt
EmilHvitfeldt / sparse-matrix-output-step_dummy.md
Created May 2, 2024 05:00
sparse matrix output step_dummy 
library(recipes)
library(nycflights13)


# rec <- recipe(dep_delay ~ carrier + tailnum + origin + dest, data = flights) |>
rec <- recipe(dep_delay ~ tailnum, data = flights[1:100000, ]) |>
  step_dummy(all_nominal_predictors())

options("recipes.sparse" = FALSE)
@EmilHvitfeldt
EmilHvitfeldt / sparse-step_dummy.md
Created May 2, 2024 04:32
sparse step_dummy progress 
library(recipes)
library(nycflights13)

rec <- recipe(dep_delay ~ carrier + tailnum + dest + origin, data = flights) |>
  step_dummy(all_nominal_predictors())

options("recipes.sparse" = FALSE)

system.time({
@EmilHvitfeldt
EmilHvitfeldt / diagional-sparse-tibble.md
Created April 20, 2024 02:17 
library(dplyr)
library(purrr)
library(sparsevctrs)

# Dense -----------------------------------------------------
dense_vec <- function(x, len) {
  res <- numeric(len)
  res[x] <- x
  res
@EmilHvitfeldt
EmilHvitfeldt / profmem-sparse-textrecipes.md
Created April 17, 2024 16:38
profmem of sparse vs textrecipes 
library(tidymodels)
library(textrecipes)
library(friends)

library(profmem)

p <- profmem({
preped_rec <- recipe(season ~ text, data = friends) %>%
  step_tokenize(text) %>%
@EmilHvitfeldt
EmilHvitfeldt / example.md
Created April 11, 2024 20:18
sparsevctrs hurdle 
library(sparsevctrs)
library(vctrs)

sparse_vector()
#> <sparse_vector[0]>

vec_ptype2.sparse_vector.sparse_vector <- function(x, y, ...) sparse_vector()

vec_ptype2.sparse_vector.double <- function(x, y, ...) double()
@EmilHvitfeldt
EmilHvitfeldt / download-tidymodels.R
Last active April 11, 2024 03:43
download all of tidymodels into a folder
library(gh)
dir <- "~/Desktop/all-of-tidymodels"
fs::dir_create(dir)
repos <- gh(
"GET /users/{username}/repos",
username = "tidymodels",
.per_page = 100
)
@EmilHvitfeldt
EmilHvitfeldt / 2-times-winner-superbowl.md
Created October 11, 2023 22:16
2 Times Winner of SuperBowl 
library(tidyverse)
library(rvest)

url <- "http://www.allcompetitions.com/nfl_sbros.php"

res <- read_html(url) |>
  html_element("table:nth-of-type(2)") |>
  html_table() |>
 set_names("teams")
@EmilHvitfeldt
EmilHvitfeldt / highligh-files-highlightword.qmd
Created October 1, 2023 20:33
highlight files with highlightword
---
format: revealjs
execute:
echo: true
engine: knitr
revealjs-plugins:
- highlightword
---
# Option 3: using highlightword
@EmilHvitfeldt
EmilHvitfeldt / error-function-count.R
Last active November 16, 2023 00:52
count of current usage of error, warning, or message functions from {base}, {rlang} and {cli}
``` r
counter <- function(fun) {
function(x) {
r_files <- fs::dir_ls(fs::path(x, "R"))
excludes <- stringr::str_detect(
basename(r_files), "^(deprecated|import)-", negate = TRUE
)
r_files[excludes] |>
@EmilHvitfeldt
EmilHvitfeldt / progress-tracker.R
Created August 31, 2023 18:13
Custom Progress tracker using {cli}
``` r
tracker <- tibble::tribble(
~Part, ~Total, ~draft, ~nice, ~done, ~Progress, ~percentage,
"Part 1", 5, 1, 1, 0, 0, " 40.00%",
"Part 2", 7, 1, 1, 0, 0, " 40.00%",
"Part 3", 8, 1, 1, 0, 1, " 40.00%",
)
progress_col <- cli::make_ansi_style("hotpink")
draft_col <- cli::make_ansi_style("orange")