build/remove_screenshots.R

In radiant-rstats/radiant.text: Text Menu for Radiant: Business Analytics using R and Shiny

## based on https://gist.github.com/mages/1544009
cdir <- setwd("~/gh/radiant.model/inst/app/tools/help")

## remove all local png files
list.files("./figures/", pattern = "*.png")
unlink("figures/*.png")
check <- list.files("./figures/", pattern = "*.png")
stopifnot(length(check) == 0)
cat("--", file="figures/place_holder.txt")

fn <- list.files(pattern="\\.(md|Rmd)$")
for (f in fn) {
  org <- readLines(f)
  changed <- gsub("figures_model/", "https://radiant-rstats.github.io/docs/model/figures_model/", org)
  cat(changed, file=f, sep="\n")
}

setwd(cdir)