In nevrome/wellspell.addin: Quick Spelling and Grammar Checking Addin for RStudio

knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>",
  fig.path = "README-"
)

wellspell.addin

zz <- textConnection("rd", "w")
tools::Rd2txt("man/wellspell.Rd", zz)
close(zz)

rd <- gsub("\\*", "**", rd)
rd <- gsub("\\'", "`", rd)
rd <- gsub("\\'", "`", rd)
rd <- gsub("            •", "  -", rd)
rd <- gsub("    ", "", rd)

purrr::walk(
  rd[4:(grep("_\bU_\bs_\ba_\bg_\be:", rd) - 1)],
  function(x) {
    cat(x)
    cat("  \n")
  }
)