marcionicolau’s gists

marcionicolau / kmeans_palette.R

Created December 18, 2012 13:35 — forked from dsparks/kmeans_palette.R

	doInstall <- TRUE # Change to FALSE if you don't want packages installed.
	toInstall <- c("ReadImages", "reshape", "ggplot2")
	if(doInstall){install.packages(toInstall, repos = "http://cran.r-project.org")}
	lapply(toInstall, library, character.only = TRUE)

	# Image URL:
	allImageURLs <- c("http://media.charlesleifer.com/blog/photos/thumbnails/akira_940x700.jpg",
	"http://upload.wikimedia.org/wikipedia/commons/thumb/e/ec/Mona_Lisa%2C_by_Leonardo_da_Vinci%2C_from_C2RMF_retouched.jpg/402px-Mona_Lisa%2C_by_Leonardo_da_Vinci%2C_from_C2RMF_retouched.jpg",
	"http://upload.wikimedia.org/wikipedia/commons/thumb/e/e9/Official_portrait_of_Barack_Obama.jpg/441px-Official_portrait_of_Barack_Obama.jpg",
	"http://cache.boston.com/universal/site_graphics/blogs/bigpicture/obama_11_05/obama22_16604051.jpg",

marcionicolau / voronoi_raster.R

Created December 18, 2012 13:47 — forked from dsparks/voronoi_raster.R

	doInstall <- TRUE # Change to FALSE if you don't want packages installed.
	toInstall <- c("ReadImages", "reshape", "ggplot2")
	if(doInstall){install.packages(toInstall, repos = "http://cran.r-project.org")}
	lapply(toInstall, library, character.only = TRUE)

	# Image URL:
	allImageURLs <- c("http://media.charlesleifer.com/blog/photos/thumbnails/akira_940x700.jpg",
	"http://upload.wikimedia.org/wikipedia/commons/thumb/e/ec/Mona_Lisa%2C_by_Leonardo_da_Vinci%2C_from_C2RMF_retouched.jpg/402px-Mona_Lisa%2C_by_Leonardo_da_Vinci%2C_from_C2RMF_retouched.jpg",
	"http://upload.wikimedia.org/wikipedia/commons/thumb/e/e9/Official_portrait_of_Barack_Obama.jpg/441px-Official_portrait_of_Barack_Obama.jpg",
	"http://cache.boston.com/universal/site_graphics/blogs/bigpicture/obama_11_05/obama22_16604051.jpg",

marcionicolau / .gitignore

Last active December 10, 2015 12:28

marcionicolau / server.R

Created January 2, 2013 19:13 — forked from rdabbler/server.R

	library(shiny)

	# load a very small projects file
	# Eventually the idea is to have a database link to SQLite or access
	projects=data.frame(pid=c(1,2,3,4,5),project=c("proj1","proj2","proj3","proj4","proj5"))

	# Define server logic
	shinyServer(function(input, output) {

	# if Projects -> View Projects is selected, this outputs the lists in dataframe projects

marcionicolau / server.R

Created January 15, 2013 18:57 — forked from jcheng5/server.R

Show Elapsed Time in shiny process

	library(shiny)

	shinyServer(function(input, output) {

	output$intense <- reactivePrint(function() {
	if(input$panel==2){
	Sys.sleep(10)
	return('Finished')
	}else({return(NULL)})
	})

marcionicolau / global.R

Created January 15, 2013 20:06 — forked from dempseydata/global.R

AB2 Test

	###############################################
	##
	## Attempt no 2 at building a shiny web app
	## for AB Testing use - using global.R
	##
	## global.R - loading and defining variables for the global environment
	##
	###############################################

	# Pallette used in some charts as a general indicator color for better or worse that the control group

marcionicolau / instructR.R

Created January 16, 2013 12:05 — forked from rdabbler/instructR.R

Learning R with Shiny

	# Here a set of instructions corresponding to each code lesson is made into a dataset codelist

	ID=as.numeric() # id of code lesson
	instruct=as.character() # instructions for code lesson
	subhead=as.character() # subheading for code lesson

	i=1
	ID[i]=i
	subhead[i]="Simple R Expressions: Addition"
	instruct[i]=paste('Try simple math','Type the command below','','1+1','',sep="\n")

marcionicolau / lr.js

Created January 16, 2013 12:27

<script src="https://github.com/livereload/livereload-js/raw/master/dist/livereload.js?host=localhost"></script>

marcionicolau / startEc2InstanceSsh.R

Created April 29, 2013 12:26 — forked from CerebralMastication/startEc2InstanceSsh.R

	#! /usr/bin/env Rscript

	#start an instance
	startup <- system("ec2-run-instances ami-b232d0db -k ec2ApiTools", intern=T)
	Sys.sleep(45) #rather random but 45 seconds is typically long enough to boot

	#query running instances
	instances <- system("ec2-describe-instances", intern=T)
	instancesParsed <- sapply(instances, strsplit, "\t")

marcionicolau / gist:5705790

Created June 4, 2013 13:13 — forked from ivanvanderbyl/gist:4222308

	sudo add-apt-repository ppa:pitti/postgresql
	sudo apt-get update
	sudo apt-get install postgresql-9.2 postgresql-server-dev-9.2 postgresql-contrib-9.2

	sudo su -l postgres
	psql -d template1 -p 5433
	CREATE EXTENSION IF NOT EXISTS hstore;
	CREATE EXTENSION IF NOT EXISTS "uuid-ossp";
	service postgresql stop
	/usr/lib/postgresql/9.2/bin/pg_upgrade -b /usr/lib/postgresql/9.1/bin -B /usr/lib/postgresql/9.2/bin -d /var/lib/postgresql/9.1/main/ -D /var/lib/postgresql/9.2/main/ -O "-c config_file=/etc/postgresql/9.2/main/postgresql.conf" -o "-c config_file=/etc/postgresql/9.1/main/postgresql.conf"

Marcio Nicolau marcionicolau