changes to layout of boxes, tabs, add links

ui.R

@@ -12,8 +12,8 @@ shinyUI(
         # Watch out for `tabName`: Must be matched by definition
         # of the 'tabItem' below
         menuItem("Collider App", tabName = "collider", icon = icon("project-diagram")),
-        menuItem("References", tabName = "references", icon = icon("book")),
-        menuItem("Code", tabName = "code"))
+        menuItem("Code", tabName = "code", icon = icon("github")),
+                menuItem("References", tabName = "references", icon = icon("book")))
     ),
     # Adjust Body of Dashboard
     dashboardBody(
@@ -79,6 +79,7 @@ border-top-color:#ffda3e;
                       width = 12),
                     box(
                       title = "Regression Output", solidHeader = TRUE, status = boxcol_1,
+                      p("Output from a linear regression of the variable 'beauty' on 'talent' based on the simulated data set."),
                       gt_output("regression_tbl"),
                       width = 12)),
                     width = 4
@@ -96,6 +97,23 @@ border-top-color:#ffda3e;
                   )
 
                 ),
+        ),
+        tabItem(tabName = "code",
+                h2("Code"),
+                p("The code is available at the GitHub repository",
+                  tags$a("https://github.com/DigitalCausalityLab/colliderbias.", href="https://github.com/DigitalCausalityLab/colliderbias")
+                  ),
+                p("In case you find a bug or have suggestion for improvements, please open an issue in",
+                  tags$a("GitHub.", href = "https://github.com/DigitalCausalityLab/colliderbias/issues")
+                  )
+                ),
+        tabItem(tabName = "references",
+                h2("References"),
+                p("Cunningham, Scott. “Causal inference.” Causal Inference. Yale University Press, 2021, Section 3.6.1., available", tags$a("online.", href = "https://mixtape.scunning.com/")),
+                p("Piazza, Jo. 2009. “Megan Fox Voted Worst - but Sexiest - Actress of 2009.”",
+                tags$a("https://marquee.blogs.cnn.com/2009/12/30/megan-fox-voted-worst-but-sexiest-actress-of-2009/",
+                       href = "https://marquee.blogs.cnn.com/2009/12/30/megan-fox-voted-worst-but-sexiest-actress-of-2009/")
+                )
         )
       )
     )