Nothing
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)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.