R/bibfix.R

Defines functions get_biblines remove_bullets get_used_bib

# #' @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))
}

Try the iheiddown package in your browser

Any scripts or data that you put into this service are public.

iheiddown documentation built on May 13, 2022, 9:06 a.m.