From 25267552dd14ff762847dfc2522ad982ae65be35 Mon Sep 17 00:00:00 2001
From: Jeff Allen <jeff.allen@trestletechnology.net>
Date: Thu, 7 Feb 2013 23:57:20 -0600
Subject: [PATCH] Removed duplicate project.

---
 myapp/server.R | 22 ----------------------
 myapp/ui.R     | 25 -------------------------
 2 files changed, 47 deletions(-)
 delete mode 100644 myapp/server.R
 delete mode 100644 myapp/ui.R

diff --git a/myapp/server.R b/myapp/server.R
deleted file mode 100644
index 5b90474..0000000
--- a/myapp/server.R
+++ /dev/null
@@ -1,22 +0,0 @@
-shinyServer(function(input, output) {
-
-  output$main_plot <- reactivePlot(function() {
-
-    hist(faithful$eruptions,
-      probability = TRUE,
-      breaks = as.numeric(input$n_breaks),
-      xlab = "Duration (minutes)",
-      main = "Geyser eruption duration")
-
-    if (input$individual_obs) {
-      rug(faithful$eruptions)
-    }
-
-    if (input$density) {
-      dens <- density(faithful$eruptions,
-          adjust = input$bw_adjust)
-      lines(dens, col = "blue")
-    }
-
-  })
-})
diff --git a/myapp/ui.R b/myapp/ui.R
deleted file mode 100644
index 3a78262..0000000
--- a/myapp/ui.R
+++ /dev/null
@@ -1,25 +0,0 @@
-shinyUI(bootstrapPage(
-
-  selectInput(inputId = "n_breaks",
-      label = "Number of bins in histogram (approximate):",
-      choices = c(10, 20, 35, 50),
-      selected = 20),
-
-  checkboxInput(inputId = "individual_obs",
-      label = strong("Show individual observations"),
-      value = FALSE),
-
-  checkboxInput(inputId = "density",
-      label = strong("Show density estimate"),
-      value = FALSE),
-
-  plotOutput(outputId = "main_plot", height = "300px"),
-
-  # Display this only if the density is shown
-  conditionalPanel(condition = "input.density == true",
-    sliderInput(inputId = "bw_adjust",
-        label = "Bandwidth adjustment:",
-        min = 0.2, max = 2, value = 1, step = 0.2)
-  )
-
-))