- Senior Data Analyst @IntTestAgency
- PhD Forensic Science @unil
- MSc Mathematical Engineering @polimi
®🐍🏃♀️⛷🚲🥐🍽
github.com/tidyverse/gg...
github.com/tidyverse/gg...
AKA: more awesomeness just like scales::label_dictionary()!
github.com/tidyverse/gg...
AKA: more awesomeness just like scales::label_dictionary()!
github.com/tidyverse/gg...
AKA: repeat a layer in every facet without messing with data
github.com/tidyverse/gg...
AKA: repeat a layer in every facet without messing with data
github.com/tidyverse/gg...
github.com/tidyverse/gg...
github.com/tidyverse/gg...
github.com/tidyverse/gg...
github.com/tidyverse/gg...
And also in DuckDB SQL FYI
And also in DuckDB SQL FYI
Treatment <- c("Control", "Asprin 10mg/day", "Asprin 50mg/day", "Asprin 100mg/day", "Acetomycin 100mg/day" "Acetomycin 1000mg/day")
Treatment[order(readr::parse_number(Treatment))]
Treatment <- c("Control", "Asprin 10mg/day", "Asprin 50mg/day", "Asprin 100mg/day", "Acetomycin 100mg/day" "Acetomycin 1000mg/day")
Treatment[order(readr::parse_number(Treatment))]
list_vec[[i]] <- local({
i <- i
\() paste("vec is:", i)
})
Or manually::
e <- new.env()
e$i <- i
environment(list_vec[[i]]) <- e
list_vec[[i]] <- \() paste("vec is:", i)
list_vec[[i]] <- local({
i <- i
\() paste("vec is:", i)
})
Or manually::
e <- new.env()
e$i <- i
environment(list_vec[[i]]) <- e
list_vec[[i]] <- \() paste("vec is:", i)
rlang::fn_env(list_vec[[1]]) # <environment: R_GlobalEnv>
rlang::fn_env(list_vec[[2]]) # <environment: R_GlobalEnv>
list_vec[[1]]() # "bar"
list_vec[[2]]() # "bar"
i <- "other"
list_vec[[1]]() # "other"
rlang::fn_env(list_vec[[1]]) # <environment: R_GlobalEnv>
rlang::fn_env(list_vec[[2]]) # <environment: R_GlobalEnv>
list_vec[[1]]() # "bar"
list_vec[[2]]() # "bar"
i <- "other"
list_vec[[1]]() # "other"