trestletech

---
title: "Integration Testing in Shiny"
output: github_document
editor_options:
  chunk_output_type: console
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)
```

trestletech

# -*- mode: ruby -*-
# vi: set ft=ruby :

# All Vagrant configuration is done below. The "2" in Vagrant.configure
# configures the configuration version (we support older styles for
# backwards compatibility). Please don't change it unless you know what
# you're doing.
Vagrant.configure("2") do |config|
  # The most common configuration options are documented and commented below.
  # For a complete reference, please see the online documentation at

trestletech

#
# This is a Shiny web application. You can run the application by clicking
# the 'Run App' button above.
#
# Find out more about building applications with Shiny here:
#
#    http://shiny.rstudio.com/
#

library(shiny)

trestletech

Keybase proof

I hereby claim:

• I am trestletech on github.
• I am trestletech (https://keybase.io/trestletech) on keybase.
• I have a public key whose fingerprint is DC6E 66E5 1FD7 E7DD 48F3 30DC F444 9D7D 7C8B 4C37

To claim this, I am signing this object:

trestletech

download.file("https://ndownloader.figshare.com/articles/5170705/versions/1", "kd.zip")
unzip("kd.zip")

library(readr)

words <- readr::read_csv("KSP-Word.csv")
users <- readr::read_csv("KSP-User.csv")
entries <- readr::read_csv("KSP-Entry.csv")
keypress <- readr::read_csv("KSP-KeyPress.csv")
pressure <- readr::read_csv("KSP-Pressure.csv")

trestletech

#!/bin/bash                                                                        
                                                                                   
echo "Getting list of Availability Zones"                                          
all_regions=$(aws ec2 describe-regions --output text --query 'Regions[*].[RegionName]' | sort)
all_az=()                                                                          
                                                                                   
while read -r region; do                                                           
  az_per_region=$(aws ec2 describe-availability-zones --region $region --query 'AvailabilityZones[*].[ZoneName]' --output text | sort)
                                                                                   
  while read -r az; do                                                             

trestletech

node_modules
.vagrant
*.swp

trestletech

library(PKI)
txt <- ("This is an encryption test that has a variety of characters and is fairly long so that we can test whether or not it's actually using the stream cipher")
corpus <- paste(rep(txt, 5000), collapse="")
x <- charToRaw(corpus)
length(x)
key <- PKI.digest(charToRaw("this is a small key but it's getting bigger by the second"), "SHA256")
ae <- PKI.encrypt(x, key, "aes256")
ad <- PKI.decrypt(ae, key, "aes256")
stopifnot(identical(x, ad))
stopifnot(!identical(ad, ae))

trestletech

# Suppose a function has an argument "x". If a "child function" has multiple
# argument beginning with "x" and I want to pass the param "x" to its parent,
# I get error: `argument n matches multiple formal arguments`
# The reason this happens is clear, but at 3am my brain is firing blanks
# trying to find a solution.  Help!

library(magrittr)

foo <- function(x, ...) UseMethod("foo")
foo.parent <- function(x, n = 5, ...) n

trestletech

FROM ubuntu:14.04

MAINTAINER Winston Chang "winston@rstudio.com"

# =====================================================================
# R
# =====================================================================

# Need this to add R repo
RUN apt-get update && apt-get install -y software-properties-common