vfulco

'use strict';

var domain = require('domain');

var userMethod = 'handler';
var userCodeWrapper = function(userCode) {
  return '\
"use strict";\n\
' +  userCode + '\n\
try {\n\

vfulco

Title: Project Title Author: First Last Email: [email protected] 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

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)

vfulco

This gist holds the files necessary to reproduce a minimal example of "printing" a flexdashboard using a headless browser.

vfulco

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

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) {

vfulco

# This script is modified by Jason Bryer ([email protected]) 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

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(

vfulco

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

# 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)