extra/generate.R

In ropensci/RedisAPI: Wrapper for 'Redis' 'API'

#!/usr/bin/env Rscript
library(methods)
path_R <- "../R"
source("generate_fun.R")

if (!file.exists("redis-doc")) {
  callr::call_system(callr::Sys_which("git"),
                     c("clone", "https://github.com/antirez/redis-doc"))
}

cmds <- read_commands()
dat <- generate(cmds)
writeLines(c(dat, generate_since(cmds)),
           file.path(path_R, "redis_api_generated.R"))