Thrilled to join Isomorphic Labs—time to build better ML models of cells and create the drugs of the future!! 🧬🧫🧑💻🥳
Constantin Ahlmann-Eltze
@const-ae.bsky.social
2.1K followers 699 following 70 posts
Scientist at Isomorphic Labs. Previously at UCL and EMBL working with Wolfgang Huber. Biology, ML, Python, R, cancer immunology
![wrap_in_tibble <- function(...){
dots <- rlang::enquos(...)
# Let's assume I can be sure that the environment is the same across dots
eval_in_mtcars(tibble::tibble(!!! dots), env = rlang::quo_get_env(dots[[1]]))
}
eval_in_mtcars <- function(expr, env){
quo <- rlang::enquo(expr)
quo <- rlang::new_quosure(rlang::quo_squash(quo), env)
rlang::eval_tidy(quo, data = mtcars[1:3,])
}
wrap_in_tibble(mpg * 3)
#> # A tibble: 3 × 1
#> `mpg * 3`
#> <dbl>
#> 1 63
#> 2 63
#> 3 68.4](https://cdn.bsky.app/img/feed_thumbnail/plain/did:plc:pa4xdweapw6gnh42xqptt6vb/bafkreiedsb67npdkhwoxx3u5ceu5rfpbktvwe5dbuwqxpuledeqb43fhyu)
![wrap_in_df <- function(...){
dots <- rlang::enquos(...)
eval_in_mtcars(data.frame(!!! dots))
}
wrap_in_tibble <- function(...){
dots <- rlang::enquos(...)
eval_in_mtcars(tibble::tibble(!!! dots))
}
eval_in_mtcars <- function(expr){
quo <- rlang::enquo(expr)
rlang::eval_tidy(quo, data = mtcars[1:3,])
}
wrap_in_df(mpg * 2, cyl + 3)
#> X.mpg...2 X.cyl...3
#> 1 42.0 9
#> 2 42.0 9
#> 3 45.6 7
wrap_in_tibble(mpg * 2, cyl + 3)
#> Error: object 'mpg' not found](https://cdn.bsky.app/img/feed_thumbnail/plain/did:plc:pa4xdweapw6gnh42xqptt6vb/bafkreihxqsxhceomx7l4lv6g5zk5ocw4vy7mlpyxf7fg5qssa5gnvjbe4q)
