Skip to content

Instantly share code, notes, and snippets.

Vincent C Fulco vfulco

Block or report user

Report or block vfulco

Hide content and notifications from this user.

Learn more about blocking users

Contact Support about this user’s behavior.

Learn more about reporting abuse

Report abuse
View GitHub Profile
@vfulco
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
vfulco / proposal-example.md
Created Jul 6, 2018 — forked from jamesdlacroix/proposal-example.md
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. http://www.lacroixdesign.net/blog/streamlining-our-proposal-writing-process/
View proposal-example.md

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

@vfulco
vfulco / do_rpt.r
Created Apr 11, 2018 — forked from hrbrmstr/do_rpt.r
parallel, parameterized knitr reports
View do_rpt.r
library(doParallel)
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) {
require(rmarkdown)
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
library(shinydashboard)
library(dplyr)
library(dbplyr)
library(purrr)
library(shiny)
library(highcharter)
library(DT)
library(htmltools)
# Use the `config` package to get the credentials
@vfulco
vfulco / server.R
Created Mar 30, 2018 — forked from withr/server.R
Encrypt password with md5 for Shiny-app.
View server.R
library(shiny)
library(datasets)
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)
observe({
if (USER$Logged == TRUE) {
View Login.R
# This script is modified by Jason Bryer (jason@bryer.org) from Huidong Tian's
# original script. The blog post describing the method is here:
# http://withr.me/authentication-of-shiny-server-application-using-a-simple-method/
# The original R script is located here: https://gist.github.com/withr/9001831
#
# 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
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
library(shiny)
options(shiny.reactlog=TRUE)
# 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(
View keybase.md

Keybase proof

I hereby claim:

  • I am vfulco on github.
  • I am vfulco (https://keybase.io/vfulco) on keybase.
  • I have a public key ASDLWiUUf_euAQdvZjh52dN9gEMNIY0bG8dnPtYUVa_W4go

To claim this, I am signing this object:

@vfulco
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)
}
close(rmd)
You can’t perform that action at this time.