Nick Carchedi ncarchedi

This is an example paragraph.

And here's another. Notice the amount of space between paragraphs, which makes the text more readable (especially when there's lots of it).

I hereby claim:

To claim this, I am signing this object:

	# 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
	#

	# Script to help understanding of S3 object-oriented programming
	# in R using classes and methods

	# Constructor functions for various classes of animal
	pig <- function() structure(list(), class="pig")
	dog <- function() structure(list(), class="dog")
	cat <- function() structure(list(), class="cat")

	# Generic makeSound function
	makeSound <- function(x) UseMethod("makeSound")

	# Script to help understanding of S3 object-oriented programming
	# in R using classes and methods

	# Constructor functions for various classes of animal
	pig <- function() structure(list(), class=c("pig", "animal"))
	dog <- function() structure(list(), class=c("dog", "animal"))
	cat <- function() structure(list(), class=c("cat", "animal"))

	makeSound <- function(x) UseMethod("makeSound")

	saveWork <- function(...) {
	save.image()
	TRUE
	}

	addTaskCallback(saveWork, name="autoSave")

	library(shiny)

	shinyServer(function(input, output) {

	# Initialize list of inputs
	inputTagList <- tagList()

	output$allInputs <- renderUI({
	# Get value of button, which represents number of times pressed (i.e. number of inputs added)
	i <- input$appendInput