Kirill Müller krlmlr
krlmlr
/ ensure_type.R
Last active
September 28, 2025 18:31
Ensure type stability for an R data frame
This file contains hidden or 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(conflicted) | |
| library(rlang) | |
| library(vctrs) | |
| library(dplyr) | |
| ensure_type <- function(.data, ..., .default = NULL, .call = caller_env()) { | |
| try_fetch( | |
| try_ensure_type(.data, ..., .default = {{ .default }}), | |
| error = function(e) { | |
| cli::cli_abort( |
This file contains hidden or 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(tidyverse) | |
| vec_slice2 <- function(x, i) { | |
| if (!is.data.frame(x)) { | |
| return(.subset2(x, i)) | |
| } | |
| # FIXME: Other special cases? | |
| row <- vctrs::vec_slice(x, i) | |
| lists <- map_lgl(row, ~ is.list(.x) && !is.data.frame(.x)) | |
| length_one_elements <- map_lgl( |
This file contains hidden or 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
| pak::pak("duckdb/duckdb-r") | |
| #> ! Using bundled GitHub PAT. Please add your own PAT using `gitcreds::gitcreds_set()`. | |
| #> | |
| #> ✔ Updated metadata database: 4.81 MB in 4 files. | |
| #> | |
| #> ℹ Updating metadata database | |
| #> ✔ Updating metadata database ... done | |
| #> | |
| #> | |
| #> → Will update 1 package. |
krlmlr
/ facepalm.R
Created
October 25, 2023 04:05
Example from https://tonsky.me/blog/unicode/ in R
This file contains hidden or 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
| facepalm <- "\U1F926" | |
| fitzpatrick_3 <- "\U1F3FC" | |
| zero_width_joiner <- "\U200D" | |
| male <- "\U2642" | |
| my_facepalm <- paste0(facepalm, fitzpatrick_3, zero_width_joiner, male) | |
| my_facepalm | |
| #> [1] "🤦🏼♂" | |
| # 😱 |
krlmlr
/ dm-standalone-check_suggested.R
Created
October 23, 2023 05:08
Using check_suggested() standalone
This file contains hidden or 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
| usethis::use_standalone("cynkra/dm", "standalone-check_suggested.R") | |
| #> ✔ Setting active project to '/Users/kirill/git/R/fledge' | |
| #> ✔ Writing 'R/import-standalone-check_suggested.R' |
This file contains hidden or 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
| my_fun <- function() { | |
| rlang::local_interactive() | |
| rlang::check_installed(c("DiagrammeR (>= 1.0.9)", "DiagrammeRsvg")) | |
| stopifnot(requireNamespace("DiagrammeR", quietly = TRUE)) | |
| stopifnot(requireNamespace("DiagrammeRsvg", quietly = TRUE)) | |
| } | |
| my_fun() | |
| #> ℹ The packages "DiagrammeR" (>= 1.0.9) and "DiagrammeRsvg" are required. | |
| #> ✖ Would you like to install them? |
This file contains hidden or 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(DBI) | |
| con <- dbConnect( | |
| RPostgres::Postgres(), | |
| ... | |
| ) | |
| dbExecute( | |
| con, | |
| "CREATE TEMP TABLE x (a int); CREATE TEMP TABLE y (b int)", | |
| immediate = TRUE |
This file contains hidden or 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
| my_letters <- c("A", "B", "C", "D", "E") | |
| bench::mark(for (i in 1:10000) NULL) | |
| #> # A tibble: 1 × 6 | |
| #> expression min median `itr/sec` mem_alloc `gc/sec` | |
| #> <bch:expr> <bch:tm> <bch:tm> <dbl> <bch:byt> <dbl> | |
| #> 1 for (i in 1:10000) NULL 312µs 332µs 2972. 38.9KB 36.3 | |
| bench::mark(for (i in 1:10000) my_letters[3], for (i in 1:10000) my_letters[[3]]) | |
| #> # A tibble: 2 × 6 | |
| #> expression min median `itr/sec` mem_alloc `gc/sec` | |
| #> <bch:expr> <bch:t> <bch:> <dbl> <bch:byt> <dbl> |
This file contains hidden or 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
| # Use: add `log_call("<function name")` to your functions | |
| # TODO: Add to all functions in a namespace via `trace()` | |
| indent <- new_environment(list(value = 0L)) | |
| log_call <- function(name, call = sys.call(-1), envir = parent.frame()) { | |
| srcref <- attr(call, "srcref") | |
| if (is.null(srcref)) { | |
| call_dep <- paste(gsub("^ +", "", deparse(call)), collapse = "") |
krlmlr
/ use_tests.R
Last active
March 23, 2023 08:03
Create boilerplate test files from source files in an R package
This file contains hidden or 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(conflicted) | |
| library(tidyverse) | |
| new_region <- function(name) { | |
| paste0("# ", name, " ", strrep("-", max(88 - nchar(name) - 4, 0))) | |
| } | |
| boilerplate <- function(name) { | |
| paste(collapse = "\n", c( | |
| new_region(name), |
NewerOlder