Karthik Ram karthik

Introduction

I created a function called "extract_colours()" in my "rPlotter" package. Using this function, any image in PNG, JPG, JPEG or TIFF format can be converted into a simple colour palette.

YET, this is my very first attempt, the colours are only sorted by alphabetical order at the moment. More work is needed to arrange colours based on colour theory and other factors.

Example 1a - R Logo

Apparently, there is a simple problem called Fizz buzz which is sometimes used to identify competent programmers. A good opportunity to practice some dplyr and magrittr tricks.

library(dplyr)
library(magrittr)
library(knitr)

1:100 %>%
 data.frame %&gt;%

#Reporter Save File Schema

##The Reporter Export File

Reporter saves to your Dropbox account with plaintext JSON files, one for each day. When a Report is entered in the app a file is created for that day if it does not exist. Otherwise, the report is appended to the existing file. The save folder is located in 'Dropbox/Apps/Reporter-App/'.

Reporter save files are named according to the following convention:

YYYY-MM-DD-reporter-export.json

	---
	title: "Row bind a list of data.frames with a key"
	author: "Jenny Bryan"
	date: "22 August, 2014"
	output:
	html_document:
	keep_md: TRUE
	---

	I posed a question on Twitter (click to see the figure!):

	# A quick function to save a PBM (http://en.wikipedia.org/wiki/Netpbm_format)
	# visualize a lot of missing data pretty quickly (outside of R).

	writeMissingPBM <- function(x, file) {
	dims <- dim(x)
	x[] <- as.integer(is.na(x))
	con <- file(file, open="wt")
	writeLines(sprintf("P1\n%d %d", ncol(x), nrow(x)), con)
	write.table(x, file=con, sep=" ", col.names=FALSE, row.names=FALSE, quote=FALSE)
	close(con)

	## Empty list -- just use the empty environment for this.
	nil <- function() {
	emptyenv()
	}

	## Test if a list is the empty list:
	is_empty <- function(lis) {
	identical(lis, nil())
	}

	# A tutorial navigates through a series of states, either manually, with
	# nxt(), prv(), jmp() etc, or automatically, by using addTaskCallback() and
	# checking that preconditions are met.
	#
	# Each state has:
	# * a message
	# * a next state (a function name)
	# (eventually may have multiple next named states)
	# * an auto test
	#

	# download docx2txt by Sandeep Kumar
	wget -O docx2txt.pl http://www.cs.indiana.edu/~kinzler/home/binp/docx2txt

	# make a wrapper
	echo '#!/bin/bash
	docx2txt.pl $1 -' > docx2txt
	chmod +x docx2txt

	# make sure docx2txt.pl and docx2txt are your current PATH. Here's a guide
	http://shapeshed.com/using_custom_shell_scripts_on_osx_or_linux/

	LinearizeNestedList <- function(NList, LinearizeDataFrames=FALSE,
	NameSep="/", ForceNames=FALSE) {
	# LinearizeNestedList:
	#
	# https://sites.google.com/site/akhilsbehl/geekspace/
	# articles/r/linearize_nested_lists_in_r
	#
	# Akhil S Bhel
	#
	# Implements a recursive algorithm to linearize nested lists upto any

	#!/bin/bash

	# This script is set to run any time a new file is added to my "Papers" folder, using launchd

	# 1 - Find papers with JSTOR or Science cover sheets and remove the first page

	text1="kind:pdf Your use of the JSTOR archive indicates your acceptance of" #JSTOR papers
	text2="kind:pdf is published weekly, except the last week in December" #Science papers

	#Add more of these as you find text snippets that identify cover sheets from different publishers. Then add more loops belo