Bug fix GUI

Fixed a bug, legend checkbox display corrected Changed column names of csv
JoachimGoedhart · Sep 13, 2018 · 88a5338 · 88a5338
1 parent 9243578
commit 88a5338
Show file tree

Hide file tree

Showing 4 changed files with 26 additions and 10 deletions.
diff --git a/.Rhistory b/.Rhistory
@@ -397,3 +397,19 @@ runApp('surfdrive/Shiny-project/PlotsOfDifferences')
 runApp('surfdrive/Shiny-project/PlotsOfDifferences')
 runApp('surfdrive/Shiny-project/PlotsOfDifferences')
 shiny::runApp('surfdrive/Shiny-project/PlotsOfDifferences')
+shiny::runApp('surfdrive/Shiny-project/PlotTwist')
+runApp('surfdrive/Shiny-project/PlotTwist')
+runApp('surfdrive/Shiny-project/PlotTwist')
+runApp('surfdrive/Shiny-project/PlotTwist')
+runApp('surfdrive/Shiny-project/PlotTwist')
+runApp('surfdrive/Shiny-project/PlotTwist')
+runApp('surfdrive/Shiny-project/PlotTwist')
+runApp('surfdrive/Shiny-project/PlotTwist')
+runApp('surfdrive/Shiny-project/PlotTwist')
+runApp('surfdrive/Shiny-project/PlotTwist')
+shiny::runApp('surfdrive/Shiny-project/PlotsOfDifferences')
+runApp('surfdrive/Shiny-project/PlotsOfDifferences')
+runApp('surfdrive/Shiny-project/Plotsofdifferences')
+runApp('surfdrive/Shiny-project/Plotsofdata')
+runApp('surfdrive/Shiny-project/Plotsofdata')
+shiny::runApp()
diff --git a/.gitignore b/.gitignore
@@ -1,3 +1,4 @@
 
 .Rhistory
 .Rhistory
+.Rhistory
diff --git a/Data_wide_example.csv b/Data_wide_example.csv
@@ -1 +1 @@
-Control,Condition 1,Condition 20.807567,0.846366,1.040290.707803,0.918764,1.000780.871154,0.912502,1.215970.831443,1.0055,1.214580.983511,0.891115,1.397950.766772,1.14641,0.8284190.720085,0.866341,1.116810.76409,0.964837,1.527530.633214,1.18332,0.9839240.834569,0.730115,0.8768150.809078,0.850897,0.7169050.694043,0.742864,0.9143280.724326,0.804518,0.8744420.569857,0.758478,1.910920.723657,0.754515,0.8219250.782493,0.738183,1.092310.687039,0.720256,0.6325710.787921,0.723264,0.8279950.70864,0.753788,0.948590.974597,0.792612,1.377130.711307,0.808575,0.7072840.702809,0.873727,0.682060.673631,0.883207,0.6646310.788322,0.676569,0.8485410.754153,0.689013,0.8384280.758172,0.838361,0.9722630.711341,0.72895,0.8808320.698301,0.817463,0.8328730.717433,0.893889,0.6911740.824251,1.0381,0.8496290.772997,0.818309,0.6582190.638332,0.776858,0.7287910.772532,0.545212,1.268940.716471,0.870494,0.8141180.727309,0.826946,0.9383460.685852,0.854144,0.6818790.740464,0.725829,0.8500010.665473,0.774138,0.7835260.636346,0.643207,0.8356260.67318,0.740819,0.7707590.843259,0.855862,0.9320810.738324,0.6314,0.8391690.818901,0.72209,1.00250.693717,0.739255,0.6756610.629846,0.801294,0.8006030.677805,0.670951,0.8027490.672604,0.720769,0.87590.680524,0.753276,3.490240.635426,0.582269,0.7078530.645182,0.97346,1.009350.631873,0.694889,1.14638,0.825846,0.827484,0.699316,0.838771,0.646163,0.92458,0.896274,0.936576,0.757356,1.08958,0.709378,0.885344,0.732561,0.876978,0.856031,1.11655,0.764796,0.695477,0.726367,1.27532,0.761288,0.783075,0.567124,1.27453,0.689162,,0.744091,,0.629497,,0.745194,,0.722711,,0.688257,,1.34151,
+B_lo,A_hi,C_med0.807567,1.04029,0.8463660.707803,1.00078,0.9187640.871154,1.21597,0.9125020.831443,1.21458,1.00550.983511,1.39795,0.8911150.766772,0.828419,1.146410.720085,1.11681,0.8663410.76409,1.52753,0.9648370.633214,0.983924,1.183320.834569,0.876815,0.7301150.809078,0.716905,0.8508970.694043,0.914328,0.7428640.724326,0.874442,0.8045180.569857,1.91092,0.7584780.723657,0.821925,0.7545150.782493,1.09231,0.7381830.687039,0.632571,0.7202560.787921,0.827995,0.7232640.70864,0.94859,0.7537880.974597,1.37713,0.7926120.711307,0.707284,0.8085750.702809,0.68206,0.8737270.673631,0.664631,0.8832070.788322,0.848541,0.6765690.754153,0.838428,0.6890130.758172,0.972263,0.8383610.711341,0.880832,0.728950.698301,0.832873,0.8174630.717433,0.691174,0.8938890.824251,0.849629,1.03810.772997,0.658219,0.8183090.638332,0.728791,0.7768580.772532,1.26894,0.5452120.716471,0.814118,0.8704940.727309,0.938346,0.8269460.685852,0.681879,0.8541440.740464,0.850001,0.7258290.665473,0.783526,0.7741380.636346,0.835626,0.6432070.67318,0.770759,0.7408190.843259,0.932081,0.8558620.738324,0.839169,0.63140.818901,1.0025,0.722090.693717,0.675661,0.7392550.629846,0.800603,0.8012940.677805,0.802749,0.6709510.672604,0.8759,0.7207690.680524,3.49024,0.7532760.635426,0.707853,0.5822690.645182,1.00935,0.973460.631873,1.14638,0.694889,0.827484,0.825846,0.838771,0.699316,0.92458,0.646163,0.936576,0.896274,1.08958,0.757356,0.885344,0.709378,0.876978,0.732561,1.11655,0.856031,0.695477,0.764796,1.27532,0.726367,0.783075,0.761288,1.27453,0.567124,,0.689162,,0.744091,,0.629497,,0.745194,,0.722711,,0.688257,,1.34151

diff --git a/app.R b/app.R
@@ -141,24 +141,23 @@ ui <- fluidPage(
         conditionalPanel(
               condition = "input.label_axes == true",
               textInput("lab_x", "X-axis:", value = ""),
-              textInput("lab_y", "Y-axis:", value = "")
-        ),
+              textInput("lab_y", "Y-axis:", value = "")),
         checkboxInput(inputId = "adj_fnt_sz",
               label = "Change font size",
-              value = FALSE)
-        ),
+              value = FALSE),
        conditionalPanel(
               condition = "input.adj_fnt_sz == true",
               numericInput("fnt_sz_ttl", "Size axis titles:", value = 24),
-              numericInput("fnt_sz_ax", "Size axis labels:", value = 18)
-
-      ),
+              numericInput("fnt_sz_ax", "Size axis labels:", value = 18)),
         conditionalPanel(
           condition = "input.color_data == true || input.color_stats == true",
           checkboxInput(inputId = "add_legend",
                         label = "Add legend",
-                        value = FALSE)),
-      conditionalPanel(
+                        value = FALSE))
+
+    ),
+
+    conditionalPanel(
         condition = "input.tabs=='Data upload'",
         h4("Data upload"),
         radioButtons(