vfulco

library(shiny)
library(shinyjs)


# This would usually come from your user database. But we want to keep it simple.
password_hash <- bcrypt::hashpw('secret123') # Never store passwords as clear text
sessionid <- "OQGYIrpOvV3KnOpBSPgOhqGxz2dE5A9IpKhP6Dy2kd7xIQhLjwYzskn9mIhRAVHo" # Our not so random sessionid


jsCode <- '

vfulco

library(jsonlite)
library(ggplot2)
library(ggChernoff)

# https://github.com/Bowserinator/Periodic-Table-JSON
d <- jsonlite::fromJSON('PeriodicTableJSON.json')[["elements"]]

ggplot(d, aes(xpos,10-ypos)) + 
  geom_chernoff(aes(fill=category, size = phase, smile = density, brow = molar_heat)) +
  geom_text(aes(label=symbol), vjust=2.5) +

vfulco

microbenchmark:::microbenchmark(system('curl http://127.0.0.1:9123/predict?val=190'))
microbenchmark:::microbenchmark(system('curl http://127.0.0.1:9124/predict?val=190'))

vfulco

**** Web Server (UI)
ShinyProxy
https://github.com/openanalytics/shinyproxy
https://github.com/openanalytics/shinyproxy-demo
http://www.shinyproxy.io/

Modularizing Shiny app code - http://shiny.rstudio.com/articles/modules.html

http://stackoverflow.com/questions/25306519/shiny-saving-url-state-subpages-and-tabs

vfulco

#' Email a user a report is ready
#'
#' Requires an account at Mailgun: https://mailgun.com
#' Pre-verification can only send to a whitelist of emails you configure
#'
#' @param email Email to send to
#' @param mail_message Any extra info
#'
#' @return TRUE if successful email sent
#' @import httr

vfulco

#setup
library(magick)
windowsFont("Roboto")

# inputs
setwd("c:/Users/steph/Dropbox/Locke Data/LoginCards/")
myfile <- "MiniBack.pdf"
n<-100
# write.csv(data.frame(usernames=paste0("u",stringr::str_pad(1:n,pad = "0",width = 3))
#                      ,pwords=random::randomStrings(n,len = 6,digits = FALSE,loweralpha = FALSE))

vfulco

My notes for Dokku on Digital Ocean.

These may be a bit outdated: Since I originally wrote them, I've reinstalled on a newer Dokku and may not have updated every section below.

Commands

Install dokku-cli (gem install dokku-cli) for a more Heroku-like CLI experience (dokku config:set FOO=bar).

# List/run commands when not on Dokku server (assuming a "henroku" ~/.ssh/config alias)

ssh henroku dokku

vfulco

Running Dokku on DigitalOcean

Notes on spinning up a new dokku server on DO. Inspired by this blog post by Bryan Kennedy.

Spin up

Pick a droplet

Choose the Dokku 1-click app

vfulco

Trello

Power tips for power people

• Text formatting with markdown
• Create cards by email
• Google Calendar Integration
• Pro Checklists with Trello
• Upload files from Google Drive
• Drag, drop, and paste attachments
• Keyboard Shortcuts

vfulco

library(shiny)
library(dplyr)
library(lubridate)

# Load libraries and functions needed to create SQLite databases.
library(RSQLite)
library(RSQLite.extfuns)
saveSQLite <- function(data, name){
  path <- dplyr:::db_location(filename=paste0(name, ".sqlite"))