diff options
author | jranke <jranke@edb9625f-4e0d-4859-8d74-9fd3b1da38cb> | 2013-06-28 14:24:06 +0000 |
---|---|---|
committer | jranke <jranke@edb9625f-4e0d-4859-8d74-9fd3b1da38cb> | 2013-06-28 14:24:06 +0000 |
commit | cee135b0c0f6dd186ae7f69f2f47c4f3b958c435 (patch) | |
tree | 745676a7e26e95165fe0e16cb7b97bdfe4c8d225 /inst/GUI | |
parent | 7842ae864c155bbbba82fd8c6d9b1cdd5497dcb2 (diff) |
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
Diffstat (limited to 'inst/GUI')
-rw-r--r-- | inst/GUI/server.R | 9 | ||||
-rw-r--r-- | inst/GUI/ui.R | 14 |
2 files changed, 23 insertions, 0 deletions
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:
|