R/extract.R

Defines functions extract

extract <- function(tb, dir){
  for(i in seq_along(dir)){
    tb %<>% dplyr::filter(name == !!rlang::parse_expr("dir[i]")) %>% dplyr::pull(value) %>% .[[1]]  
  }
  return(tb)
}
EAMI91/BGPhazard documentation built on Sept. 10, 2023, 5:23 a.m.