Skip to content

Instantly share code, notes, and snippets.


Vincent C Fulco vfulco

View GitHub Profile
vfulco / default-lambda-eval.js
Created Aug 2, 2018 — forked from bryanhelmig/default-lambda-eval.js
The default function template for AWS Lambda in Zapier. Just create a Lambda function with this code named "zapier_eval" and we'll take care of the rest! This code is released to the public domain - feel free to customize, fork or repackage this.
View default-lambda-eval.js
'use strict';
var domain = require('domain');
var userMethod = 'handler';
var userCodeWrapper = function(userCode) {
return '\
"use strict";\n\
' + userCode + '\n\
try {\n\
vfulco /
Created Jul 6, 2018 — forked from jamesdlacroix/
Example markdown proposal to be used with Marked. For more information, check out the blog post on how we are using this to streamline our proposal writing.

Title: Project Title Author: First Last Email: Address: 1234 Street, City, State 12345 Phone: (XXX)XXX-XXXX Affiliation: Copyright: 2015 Company Name Keywords: Proposal, Web Design Date: March 13, 2015

vfulco / do_rpt.r
Created Apr 11, 2018 — forked from hrbrmstr/do_rpt.r
parallel, parameterized knitr reports
View do_rpt.r
rpts <- list(list(out="one.html", params=list(some_var="One")),
list(out="two.html", params=list(some_var="Two")),
list(out="three.html", params=list(some_var="Three")),
list(out="four.html", params=list(some_var="Four")))
do_rpt <- function(r) {
View printing_flexdashboard_with_webshot
This gist holds the files necessary to reproduce a minimal example of "printing" a flexdashboard using a headless browser.
View app.R
# Use the `config` package to get the credentials
vfulco / server.R
Created Mar 30, 2018 — forked from withr/server.R
Encrypt password with md5 for Shiny-app.
View server.R
Logged = FALSE;
PASSWORD <- data.frame(Brukernavn = "withr", Passord = "25d55ad283aa400af464c76d713c07ad")
# Define server logic required to summarize and view the selected dataset
shinyServer(function(input, output) {
source("www/Login.R", local = TRUE)
if (USER$Logged == TRUE) {
View Login.R
# This script is modified by Jason Bryer ( from Huidong Tian's
# original script. The blog post describing the method is here:
# The original R script is located here:
# This script adds two new features: 1. Render a logout button, and 2. provide
# the ability for visitors to create a new account.
# Within your server.R file, be sure to use:
vfulco / app.R
Created Mar 29, 2018 — forked from vpnagraj/app.R
skeleton of a shiny app to setwd and source R scripts
View app.R
# define home dir for shiny app
homed <- getwd()
# set up choices to be retrievable in server.R
progchoices <- c("This is a TEST APP" = "testapp/",
"Yet Another Program" = "anotherprog/")
ui <- fluidPage(

Keybase proof

I hereby claim:

  • I am vfulco on github.
  • I am vfulco ( on keybase.
  • I have a public key ASDLWiUUf_euAQdvZjh52dN9gEMNIY0bG8dnPtYUVa_W4go

To claim this, I am signing this object:

vfulco / wordCountRmdFile.R
Created Feb 2, 2018 — forked from m-Py/wordCountRmdFile.R
Count words in Rmd file using the package wordcountaddin
View wordCountRmdFile.R
# This function reads a Rmd file and returns the word count
# It uses the wordcountaddin and koRpus packages
text_stats_file <- function(rmdFile) {
rmd <- file(rmdFile, "rt")
text <- readLines(rmd)
conText <- ""
for (i in text) {
conText <- paste(conText, i)
You can’t perform that action at this time.