Nothing
#' Remap identifiers
#'
#' Remap identifiers
#'
#' @importFrom rlang :=
#' @keywords internal
remap_id <- function(lst_tbls, old, new) {
id_mapping <-
lst_tbls[[1]] %>%
dplyr::select('..page', 'array.index', {{ old }}) %>%
dplyr::rename({{ new }} := {{ old }})
purrr::map(
lst_tbls,
~ dplyr::left_join(., id_mapping, by = c('..page', 'array.index')) %>%
dplyr::select(-any_of(c('document.id', 'array.index', {{old}}))) %>%
suppressWarnings() %>%
dplyr::relocate({{ new }}, .before = 1L)
) %>% return()
}
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.