Nothing
# #' @rdname bibstats
# #' @importFrom stringr str_replace_all str_replace fixed
# #' @importFrom bib2df bib2df df2bib
# #' @importFrom purrr map
# #' @export
# fix_bib <- function(bib_file) {
# if (missing(bib_file)) bib_file <- find_bib()
# bib <- suppressMessages(bib2df::bib2df(bib_file))
# bib$PAGES <- stringr::str_replace_all(bib$PAGES,
# stringr::fixed("{\\textendash}"), "--")
# bib$AUTHOR <- purrr::map(bib$AUTHOR, function(x) {
# x <- stringr::str_replace(x, "^", "{")
# x <- stringr::str_replace(x, "\\{\\{", "{")
# x <- stringr::str_replace(x, "$", "}")
# x <- stringr::str_replace(x, "\\}\\}", "}")
# })
# bib$EDITOR <- purrr::map(bib$EDITOR, function(x) {
# x <- stringr::str_replace(x, "^", "{")
# x <- stringr::str_replace(x, "\\{\\{", "{")
# x <- stringr::str_replace(x, "$", "}")
# x <- stringr::str_replace(x, "\\}\\}", "}")
# })
# bib2df::df2bib(bib, bib_file)
# }
get_used_bib <- function(bib_file, rmd_file) {
if (missing(bib_file)) bib_file <- find_bib()
if (missing(rmd_file)) rmd_file <- rstudioapi::getSourceEditorContext()$path
bib <- suppressMessages(bib2df::bib2df(bib_file))
current_bibs <- readr::read_lines(rmd_file) %>%
tibble::as_tibble() %>%
remove_front_matter() %>%
remove_code_chunks() %>%
remove_inline_code() %>%
remove_html_comment() %>%
remove_bullets() %>%
get_biblines() %>%
dplyr::mutate(value = stringr::str_remove(.data$value, "@")) %>%
select(.data$value) %>%
as.vector()
current_bibs$value
}
remove_bullets <- function(x) {
dplyr::mutate(x, value = stringr::str_remove(.data$value, "^-[:space:]+"))
}
get_biblines <- function(x) {
dplyr::filter(x, grepl("@", .data$value))
}
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.