From cee135b0c0f6dd186ae7f69f2f47c4f3b958c435 Mon Sep 17 00:00:00 2001
From: jranke <jranke@edb9625f-4e0d-4859-8d74-9fd3b1da38cb>
Date: Fri, 28 Jun 2013 14:24:06 +0000
Subject: A bit of experimentation with shiny

git-svn-id: svn+ssh://svn.r-forge.r-project.org/svnroot/kinfit/pkg/mkin@85 edb9625f-4e0d-4859-8d74-9fd3b1da38cb
---
 inst/GUI/server.R |  9 +++++++++
 inst/GUI/ui.R     | 14 ++++++++++++++
 2 files changed, 23 insertions(+)
 create mode 100644 inst/GUI/server.R
 create mode 100644 inst/GUI/ui.R

diff --git a/inst/GUI/server.R b/inst/GUI/server.R
new file mode 100644
index 0000000..12386f2
--- /dev/null
+++ b/inst/GUI/server.R
@@ -0,0 +1,9 @@
+library(shiny)
+
+shinyServer(function(input, output) {
+  output$test <- renderText({
+    input$test
+  })
+})
+
+# vim: set ts=2 sw=2 foldmethod=marker expandtab:
diff --git a/inst/GUI/ui.R b/inst/GUI/ui.R
new file mode 100644
index 0000000..2b0b868
--- /dev/null
+++ b/inst/GUI/ui.R
@@ -0,0 +1,14 @@
+library(shiny)
+shinyUI(pageWithSidebar(
+
+  headerPanel("shiny GUI for mkin"),
+
+  sidebarPanel(
+    textInput("test", "Test:", "test input")
+  ),
+
+  mainPanel(
+    textOutput("test")
+  )
+))
+# vim: set ts=2 sw=2 foldmethod=marker expandtab:
-- 
cgit v1.2.1