R/swap_equations.R

In kwojdalski/rpm2:

# .swapEquations ----------------------------------------------------------

.swapEquations <- function(doc){
  doc %>%
  {gsub('\\\\begin\\{equation\\}','\\$\\$',.,perl=T)} %>%
  {gsub('\\\\end\\{equation\\}','\\$\\$',.,perl=T)}
}