VP Nagraj vpnagraj

vpnagraj / app.R

Created November 17, 2016 17:43

skeleton of a shiny app to setwd and source R scripts

	library(shiny)
	options(shiny.reactlog=TRUE)
	# define home dir for shiny app
	homed <- getwd()

	# set up choices to be retrievable in server.R
	progchoices <- c("This is a TEST APP" = "testapp/",
	"Yet Another Program" = "anotherprog/")

	ui <- fluidPage(

vpnagraj / listmanipulation.R

Created November 9, 2016 14:34

vpnagraj / panderlatexpost.Rmd

Created March 3, 2016 20:44

example of an rmarkdown document that uses latex syntax in pander table headings

	---
	title: "RMarkdown(Pandoc(LaTeX))"
	author: "VP Nagraj"
	date: "March 3, 2016"
	output:
	html_document:
	keep_md: yes
	---

	```{r, warning=FALSE, message=FALSE}

vpnagraj / moma.Rmd

Created February 29, 2016 21:41

rmarkdown with embedded shiny app

	---
	title: "MOMA"
	author: "VP Nagraj"
	date: "February 29, 2016"
	output: html_document
	runtime: shiny
	---

	The Museum of Modern Art (MOMA) collection database is publicly available via Github:

vpnagraj / outlier_rm.R

Last active February 5, 2016 17:20

shiny gadget that removes outliers based on 'brushed' area of a plot

	# install.packages("shiny")
	# install.packages("miniUI")
	# install.packages("ggplot2")
	library(shiny)
	library(miniUI)
	library(ggplot2)

	outlier_rm <- function(data, xvar, yvar) {

	ui <- miniPage(

vpnagraj / app.R

Created January 26, 2016 17:33

trivial shiny app with file download handler

	library(shiny)
	library(dplyr)

	server <- function(input, output) {

	output$downloadData <- downloadHandler(

	filename = function() {
	paste('data_', Sys.Date(), '.csv', sep='')
	},