inst/templates/default.R

In mbojan/trac2gh: Assisting Migrating Code and Tickets from Trac to GitHub

#!/usr/bin/env Rscript

suppressMessages({
  library(trac2gh)
  library(gsubfn)
  library(dplyr)
})

con <- file("stdin", blocking=TRUE)
open(con)

l <- readLines(con)

# Data
# Must be 'd'
d <- {{{issue_data}}}

# Function
# must be f(x, db=d)
f <- {{{link_issue_function}}}

r <- gsubfn("#[0-9]+", f, l)


cat(r, file=stdout(), sep="\n")