stephlocke’s gists

stephlocke / chartGen.R

Last active November 29, 2015 19:17

Database Conceptual Diagram

	library(data.table)
	library(ggplot2)
	ratio<-2/3
	dblayout<-rbind(
	data.table(level=4,colour='DB',name='Database', start=0 ,end=1),
	data.table(level=3,colour='S', name='Schema' , start=0 ,end=ratio),
	data.table(level=3,colour='S', name='...' , start=ratio ,end=1),
	data.table(level=2,colour='T', name='Table' , start=0 ,end=ratio^2),
	data.table(level=2,colour='T', name='...' , start=ratio^2,end=ratio),
	data.table(level=1,colour='C', name='Key' , start=0 ,end=ratio^3),

stephlocke / geoencode.R

Last active January 9, 2016 20:41

Produce CSV of interest party responses with the locations geo-encoded

	if(!require(googlesheets)) install.packages("googlesheets")
	if(!require(data.table)) install.packages("data.table")
	if(!require(ggmap)) install.packages("ggmap")

	library(googlesheets)
	library(data.table)
	library(ggmap)

	responses <- gs_key('1v9aEe8ov4zSGWKjaNYMFbahdDST3RN88LoI56BGzQHM', visibility = 'public', verbose = FALSE)
	responses <- gs_read(responses, ws = 1, verbose = FALSE)

stephlocke / miniCRAN.R

Last active January 19, 2017 09:19

Getting a local CRAN that combines internal and external packages

	## ------------------------------------------------------------------------
	# Set the repo for use throughout
	cran <- "https://cran.rstudio.org"

	# Install
	if(!require(miniCRAN)){
	install.packages("miniCRAN", repos = cran)
	}

	## ------------------------------------------------------------------------

stephlocke / lastmonthOS

Created January 22, 2016 14:46

Based on cranlogs, R operating system market share of downloads last month

	link<-"http://cranlogs.r-pkg.org/downloads/daily/last-month/R"
	library(httr)
	library(data.table)
	raw<-GET(link)
	rhs<-content(raw,simplify=TRUE)$downloads[[1]]
	setDT(rhs)
	rhs[,sum(downloads)/rhs[,sum(downloads)],os]

stephlocke / SessionInfo

Last active March 4, 2016 17:19

vegaliteerror

	> sessionInfo()
	R version 3.2.3 (2015-12-10)
	Platform: x86_64-w64-mingw32/x64 (64-bit)
	Running under: Windows >= 8 x64 (build 9200)

	locale:
	[1] LC_COLLATE=English_United Kingdom.1252 LC_CTYPE=English_United Kingdom.1252
	[3] LC_MONETARY=English_United Kingdom.1252 LC_NUMERIC=C
	[5] LC_TIME=English_United Kingdom.1252

stephlocke / error

Created March 6, 2016 19:10

vegalite incompatability with ggvis in rmarkdown

	Error in vis$data[[name]] <- data :
	invalid type/length (closure/0) in vector allocation
	Calls: <Anonymous> ... eval -> _fseq -> freduce -> <Anonymous> -> add_data
	Execution halted

stephlocke / regSSHKey.ps1

Last active November 10, 2016 13:27

Working with ssh in win10

	Import-Module CredentialManager
	Import-Module .\posh-git\posh-git.psm1

	$keyfile = "id_rsa"
	$dir = ".ssh/"

	# Need to create the cred in Windows Credential Manager first (can use New-StoredCredential)
	$cred = Get-StoredCredential -Target $keyfile

	Add-SshKey

stephlocke / stats101.Rmd

Last active March 12, 2016 13:35

Presentation code for building models iteratively

	---
	title: "Stats 101"
	output:
	revealjs::revealjs_presentation:
	theme: white
	---

	```{r setup, include=FALSE}
	knitr::opts_chunk$set(echo = TRUE, message = FALSE, dev="svg",
	fig.height = 500)

stephlocke / testingdatatable.R

Last active March 16, 2016 16:36

powerbi dataframe pickup

	library(data.table)
	iris1<-iris # shows up
	iris2<-iris # shows up
	iris3<-setDT(copy(iris)) # shows up
	iris4<-setDT(copy(iris)) # doesn't show up

stephlocke / keys.Rmd

Last active April 4, 2016 10:07

key setting in data.table

Steph Locke stephlocke