From ad4f34f2efefc3a13f130fbaac28c26116f71467 Mon Sep 17 00:00:00 2001
From: schuemie <schuemie@ohdsi.org>
Date: Thu, 27 Sep 2018 14:40:08 -0400
Subject: [PATCH] Changing ci95lb and ci95ub to ci95Lb and ci95Ub. Adding
 favicon. Fixing app title.

---
 LegendBasicViewer/favicon.ico | Bin 0 -> 1150 bytes
 LegendBasicViewer/server.R    |  16 ++++++++--------
 LegendBasicViewer/ui.R        |   3 ++-
 3 files changed, 10 insertions(+), 9 deletions(-)
 create mode 100644 LegendBasicViewer/favicon.ico

diff --git a/LegendBasicViewer/favicon.ico b/LegendBasicViewer/favicon.ico
new file mode 100644
index 0000000000000000000000000000000000000000..849a1fa445a66ee6b2661717fdbbf2c7a495df5b
GIT binary patch
literal 1150
zcmbu8Z%7ki9LG=WeS*5yq|}lzH7pQ&6H!@7B_c+>DGMqI=OIObL6U)ygp}l;UO1g=
zGaYG8r<=;8G%YcGk@jbQ)MYyDkLKF;Ja@bOxjj9{{;+B9-1y#)d+t7;{hr_L2qFr9
zV`2z=Od^W65d@DQ2oVlm!YlrDTnGYR+xS5U5nGLi^+jvUp0mwgTx7G}O*R|dWYa9p
zoQG^O<1Bbc$)cB(EP2VsWiQ#Y#-3+=zR>S_y`Jbx8cKbj6<YXGfOg0s;<ZtT*FmFr
z6^-J0ohYuKL9sdpC62mmW%J%T6Xg>I`~JDSkn(VNz537#V9HRy6}}Yu9qo}0!64(T
znDtc0kGR~J7X|s1#W_*mKz~VMy`4GS1`YcZ@E5-YI~2H&fP>#nyC3M?Rl9Wzh#g{(
z3HnmQ`KR~Aop)c;4T4%bI?@imrpv)<n1ijHaX(7c(!b;SoG5mHK?cA^@P#M#x((kf
znW+tSE9W?>gr7xnu!bFM`6N@5rKab3op>JIcplhcbVTwOvXhYH@f}IqjO$v$6FU;r
zI#BjYIDK!NsX3{pr$T!PI53|U*1wSBFCI_!&gnm9UGIS%2{m>k9-x)Chn<ZnGGGhs
zMTuvM9Y*_Ro^#x~e9W+BweJ-7Qte_br4-aTP)-M&+9LxFz6{T_70(nqjJE&toI_ey
zS-%QA{9FZ?;QHVkr#j(><Q4#e4$P--?4M)Hi}NN2RnN%^vS574ViDfZ(sJxzImhW&
za3Zk<(40eW-OQI=&G|H@Qx$U0f^!w+Wmt#QtzwPAdG4UpVHVUo*xW8SzDo+2aQ?@V
zS$O448hBQ9Q(lz6f1P8)gJ)vWsuZQN$v>q9UDVtBZfbP?FB|&*LSWmj>yeWiQi9JT
z@<yY)W?7g`Tc^CS`2C3r?tg2Q!0#bJj70nMJy54{oe1O|uA?~bx$`l6U#6eoxPL})
B!h`?-

literal 0
HcmV?d00001

diff --git a/LegendBasicViewer/server.R b/LegendBasicViewer/server.R
index 7f6c93ad..bc14905f 100644
--- a/LegendBasicViewer/server.R
+++ b/LegendBasicViewer/server.R
@@ -4,8 +4,8 @@ library(DT)
 mainColumns <- c("description",
                  "databaseId",
                  "rr",
-                 "ci95lb",
-                 "ci95ub",
+                 "ci95Lb",
+                 "ci95Ub",
                  "p",
                  "calibratedRr",
                  "calibratedCi95Lb",
@@ -125,8 +125,8 @@ shinyServer(function(input, output, session) {
     table <- merge(table, analyses)
     table <- table[, mainColumns]
     table$rr <- prettyHr(table$rr)
-    table$ci95lb <- prettyHr(table$ci95lb)
-    table$ci95ub <- prettyHr(table$ci95ub)
+    table$ci95Lb <- prettyHr(table$ci95Lb)
+    table$ci95Ub <- prettyHr(table$ci95Ub)
     table$p <- prettyHr(table$p)
     table$calibratedRr <- prettyHr(table$calibratedRr)
     table$calibratedCi95Lb <- prettyHr(table$calibratedCi95Lb)
@@ -595,8 +595,8 @@ shinyServer(function(input, output, session) {
                                   estimatesOnly = TRUE)
     mainEffects <- data.frame(logRr = mainEffects$calibratedLogRr,
                               seLogRr = mainEffects$calibratedSeLogRr,
-                              ci95lb = mainEffects$calibratedCi95Lb,
-                              ci95ub = mainEffects$calibratedCi95Ub)
+                              ci95Lb = mainEffects$calibratedCi95Lb,
+                              ci95Ub = mainEffects$calibratedCi95Ub)
     writeLines("Plotting main effects")
     plot <- plotLargeScatter(mainEffects, "Calibrated hazard ratio")
     return(plot)
@@ -705,8 +705,8 @@ shinyServer(function(input, output, session) {
                                              estimatesOnly = TRUE)
     interactionEffects <- data.frame(logRr = interactionEffects$logRrr,
                                      seLogRr = interactionEffects$seLogRrr,
-                                     ci95lb = interactionEffects$ci95Lb,
-                                     ci95ub = interactionEffects$ci95Ub)
+                                     ci95Lb = interactionEffects$ci95Lb,
+                                     ci95Ub = interactionEffects$ci95Ub)
     writeLines("Plotting interaction effects")
     plot <- plotLargeScatter(interactionEffects, "Uncalibrated hazard ratio ratio")
     return(plot)
diff --git a/LegendBasicViewer/ui.R b/LegendBasicViewer/ui.R
index e84c50ff..493595e1 100644
--- a/LegendBasicViewer/ui.R
+++ b/LegendBasicViewer/ui.R
@@ -5,7 +5,8 @@ shinyUI(
   fluidPage(style = "width:1500px;",
             titlePanel(
               title=div(img(src="logo.png", height = 50, width = 50), 
-                        "LEGEND basic viewer")),
+                        "LEGEND basic viewer"),
+              windowTitle = "LEGEND basic viewer"),
             tags$head(tags$style(type = "text/css", "
              #loadmessage {
                                  position: fixed;