Included contact info

mpip · Jan 9, 2020 · 7c2851f · 7c2851f
1 parent a1d2230
commit 7c2851f
Show file tree

Hide file tree

Showing 2 changed files with 24 additions and 2 deletions.
diff --git a/rsconnect/shinyapps.io/nprct/nprct.dcf b/rsconnect/shinyapps.io/nprct/nprct.dcf
@@ -0,0 +1,10 @@
+name: nprct
+title:
+username:
+account: nprct
+server: shinyapps.io
+hostUrl: https://api.shinyapps.io/v1
+appId: 1640214
+bundleId: 2717021
+url: https://nprct.shinyapps.io/nprct/
+when: 1578582092.83846
diff --git a/ui.R b/ui.R
@@ -26,7 +26,7 @@ sidebar <- dashboardSidebar(
             menuItem("ANOVA", tabName = "anovacalculation", 
                      icon = icon("calculator")),
             menuItem("Explanations", tabName = "explanation", icon = icon("th")),
-            menuItem("Reference", tabName = "reference", icon = icon("info circle"))
+            menuItem("Reference & Contact", tabName = "reference", icon = icon("info circle"))
 
       )
 )
@@ -522,13 +522,25 @@ Related to this, if the ", em("traditional"), " RCT is ongoing while the ", em("
 
                           # ----------Reference box---------------------
                           box(
-                                title = "References",
+                                title = "Reference",
                                 color = "blue",
 
                                 #h2("Ethical Implications"),
                                 p(strong("This is where the letter is published."))
 
 
+                          ),
+
+                          box(
+                             title = "Contact",
+                             color = "blue",
+
+
+                             p("This app was programmed by Nils Kappelmann."),
+                             p("You can reach me via email under n.kappelmann@gmail.com")
+
+
+
                           )