This is likely an corner case resulting from the apply() call expecting a 2nd dimension object but returning a vector ... see drop = FALSE to [.
out <- example_data[, seq(getMeta(example_data, n = TRUE) + 1L)] write_adat(out, "foo.adat")
Timing solution:
n <- 1:100000
m <- matrix(n, nrow = 1)
bench::mark(
mat = apply(m, 2, sprintf, fmt = "%0.1f"),
vec = sprintf("%0.1f", n)
)
Thanks for reporting 🥳!
RetroSearch is an open source project built by @garambo | Open a GitHub Issue
Search and Browse the WWW like it's 1997 | Search results from DuckDuckGo
HTML:
3.2
| Encoding:
UTF-8
| Version:
0.7.4