Herb Susmann herbps10

## admin.py
from flask import current_app, Blueprint, render_template
from database import db_session
from model import Product

admin = Blueprint('admin', __name__, url_prefix='/admin')

@admin.route('/')
def index():
  product = db_session.query(Product).first()

## raytracer.sh
#!/bin/bash
#
#
# Bash Raytracer
# Herb Susmann
#

PIXEL_INCR="0.05"

# Object type IDs

## .block
license: mit

## .block
license: mit
border: no

## .block
license: mit

## .block
license: mit

## .block
license: mit

## twitter-cloud.R
library(tidyverse)
library(tm)
library(SnowballC)
library(wordcloud)
library(RColorBrewer)

setup_twitter_oauth(consumer_key = "...", consumer_secret = "...")

results <- searchTwitter("#EHSFEST", n = 1000) %>%
  twListToDF()

## twitter-bulk-add-to-list.R
#
# Adds twitter users to a twitter list in bulk
#
library(twitteR)

query <- "#EHSFEST"
screen_name <- "herbps10"
list_slug <- "ehsfest"

setup_twitter_oauth(consumer_key = "...", consumer_secret = "...")

## package-downloads.R
library(tidyverse)
log <- cranlogs::cran_downloads(packages="RNHANES", from="2016-09-28")
ggplot(log, aes(x = date, y = cumsum(count))) + geom_point()
sum(log$count)
	from flask import current_app, Blueprint, render_template
	from database import db_session
	from model import Product

	admin = Blueprint('admin', __name__, url_prefix='/admin')

	@admin.route('/')
	def index():
	product = db_session.query(Product).first()
	#!/bin/bash
	#
	#
	# Bash Raytracer
	# Herb Susmann
	#

	PIXEL_INCR="0.05"

	# Object type IDs
	library(tidyverse)
	library(tm)
	library(SnowballC)
	library(wordcloud)
	library(RColorBrewer)

	setup_twitter_oauth(consumer_key = "...", consumer_secret = "...")

	results <- searchTwitter("#EHSFEST", n = 1000) %>%
	twListToDF()
	#
	# Adds twitter users to a twitter list in bulk
	#
	library(twitteR)

	query <- "#EHSFEST"
	screen_name <- "herbps10"
	list_slug <- "ehsfest"

	setup_twitter_oauth(consumer_key = "...", consumer_secret = "...")
	library(tidyverse)
	log <- cranlogs::cran_downloads(packages="RNHANES", from="2016-09-28")
	ggplot(log, aes(x = date, y = cumsum(count))) + geom_point()
	sum(log$count)