#!/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")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.