diff --git a/rsconnect/shinyapps.io/nprct/nprct.dcf b/rsconnect/shinyapps.io/nprct/nprct.dcf new file mode 100644 index 0000000..8d4c98c --- /dev/null +++ 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 index b3001e4..c6b8e7f 100644 --- 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") + + + )