Skip to content

Instantly share code, notes, and snippets.

Avatar

Vincent C Fulco vfulco

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.