you can just do things, btw.
November 7, 2025 at 11:05 AM
you can just do things, btw.
so stoked about this caffeine chalice! thanks @posit.co @libbyheeren.bsky.social
October 1, 2025 at 2:52 PM
so stoked about this caffeine chalice! thanks @posit.co @libbyheeren.bsky.social
comment annotations would serve you well. eg.
# TODO: some plans for later
# NOTE: this is a note
pretty sure most IDEs would pick up on these:
# TODO: some plans for later
# NOTE: this is a note
pretty sure most IDEs would pick up on these:
August 25, 2025 at 7:08 AM
comment annotations would serve you well. eg.
# TODO: some plans for later
# NOTE: this is a note
pretty sure most IDEs would pick up on these:
# TODO: some plans for later
# NOTE: this is a note
pretty sure most IDEs would pick up on these:
coincidentally, the catchphrase on my website is...
August 21, 2025 at 9:00 PM
coincidentally, the catchphrase on my website is...
![count_ones <- \(x, ...) {
cols <- match.call(expand.dots = FALSE)[["..."]] |>
vapply(FUN = deparse, FUN.VALUE = character(1))
colSums(x[cols] == 1)
}](https://cdn.bsky.app/img/feed_thumbnail/plain/did:plc:x4zy26lhegouf3lf2zgjk4mz/bafkreid3gxdqij3zxeinsd5kdi5b7vplyvbc2w7fnnxkgcska5l6as6zzi@jpeg)
every visionary walks alone. van gogh had no buyers, tesla died broke, and now… this.
April 21, 2025 at 7:10 PM
every visionary walks alone. van gogh had no buyers, tesla died broke, and now… this.
this one had me in the first half, ngl.
apparently, R discards empty *formal* arguments.
inspection via `browser()` shows that the call is f(a = 3, b = 2), meaning that after discarding of `a = ` & `b = `, 3 and 2 ended up being matched by position.
haven't found any official docs on this though.
apparently, R discards empty *formal* arguments.
inspection via `browser()` shows that the call is f(a = 3, b = 2), meaning that after discarding of `a = ` & `b = `, 3 and 2 ended up being matched by position.
haven't found any official docs on this though.
![> f <- \(a = 1, b) {
browser()
b
}
> f(a = , 3, 2, b = )
Called from: f(a = , 3, 2, b = )
Browse[1]> match.call()
f(a = 3, b = 2)](https://cdn.bsky.app/img/feed_thumbnail/plain/did:plc:x4zy26lhegouf3lf2zgjk4mz/bafkreiaqldoj3ooxy7gkkbrvmusttfsmc5j6njw6onxty4rlcmgj72ujuy@jpeg)
April 13, 2025 at 8:43 AM
this one had me in the first half, ngl.
apparently, R discards empty *formal* arguments.
inspection via `browser()` shows that the call is f(a = 3, b = 2), meaning that after discarding of `a = ` & `b = `, 3 and 2 ended up being matched by position.
haven't found any official docs on this though.
apparently, R discards empty *formal* arguments.
inspection via `browser()` shows that the call is f(a = 3, b = 2), meaning that after discarding of `a = ` & `b = `, 3 and 2 ended up being matched by position.
haven't found any official docs on this though.
i use {box}. that way, i can have files/functions with the same name but in different "R modules". helps a lot when building a large app, as file & function names rarely get long. plus explicit name imports. pure bliss!
have a look at this example: github.com/ambiorix-web...
have a look at this example: github.com/ambiorix-web...
March 17, 2025 at 7:24 AM
i use {box}. that way, i can have files/functions with the same name but in different "R modules". helps a lot when building a large app, as file & function names rarely get long. plus explicit name imports. pure bliss!
have a look at this example: github.com/ambiorix-web...
have a look at this example: github.com/ambiorix-web...
you can speed up the R version by a *huge* factor by iterating only on items present in both groups.
![bench::mark(
a = {
g1 <- input$group1[input$group1 %in% input$group2] |> unique()
g2 <- input$group2[input$group2 %in% g1]
n <- sapply(g1, \(i) sum(i == g2))
sum(g1 * n)
},
b = {
sum(input$group1 * table(input$group2)[as.character(input$group1)], na.rm = TRUE)
}
)
# # A tibble: 2 × 13
# expression min median `itr/sec` mem_alloc `gc/sec` n_itr n_gc total_time
# <bch:expr> <bch:tm> <bch:> <dbl> <bch:byt> <dbl> <int> <dbl> <bch:tm>
# 1 a 122µs 129µs 7398. 123KB 37.5 3155 16 426ms
# 2 b 503µs 522µs 1843. 215KB 8.23 896 4 486ms
# # ℹ 4 more variables: result <list>, memory <list>, time <list>, gc <list>](https://cdn.bsky.app/img/feed_thumbnail/plain/did:plc:x4zy26lhegouf3lf2zgjk4mz/bafkreihnuomcwe2g5x3qund2t5vvqugzso5buyo7fmtc57jou66upoersu@jpeg)
December 1, 2024 at 9:58 PM
you can speed up the R version by a *huge* factor by iterating only on items present in both groups.
apparently, `c()` does too!
x <- c(5, 7, 11)
y <- c(x)
when will i learn R?
x <- c(5, 7, 11)
y <- c(x)
when will i learn R?
October 31, 2024 at 5:51 PM
apparently, `c()` does too!
x <- c(5, 7, 11)
y <- c(x)
when will i learn R?
x <- c(5, 7, 11)
y <- c(x)
when will i learn R?
well, copy & modify :)
on a serious note though, `[` seems to make a deep copy:
x <- c(5, 7, 11)
y <- x[]
on a serious note though, `[` seems to make a deep copy:
x <- c(5, 7, 11)
y <- x[]
![x <- c(5, 7, 11)
tracemem(x)
# [1] "<0x5ed28a507cc8>"
y <- x[] # deep copy
# tracemem[0x5ed28a507cc8 -> 0x5ed28a507c28]:
lobstr::obj_addr(x) # "0x5ed28a507cc8"
lobstr::obj_addr(y) # "0x5ed28a507c28"](https://cdn.bsky.app/img/feed_thumbnail/plain/did:plc:x4zy26lhegouf3lf2zgjk4mz/bafkreic7zfey2omffkm5czlw47webfoqedrk3ryzmkzo4623i24pulgxpu@jpeg)
October 31, 2024 at 5:38 PM
well, copy & modify :)
on a serious note though, `[` seems to make a deep copy:
x <- c(5, 7, 11)
y <- x[]
on a serious note though, `[` seems to make a deep copy:
x <- c(5, 7, 11)
y <- x[]