new options for plots

hadexversum · Feb 21, 2024 · a1be4a1 · a1be4a1
1 parent 6b4f97d
commit a1be4a1
Show file tree

Hide file tree

Showing 2 changed files with 19 additions and 7 deletions.
diff --git a/R/app_server.R b/R/app_server.R
@@ -195,6 +195,7 @@ app_server <- function(input, output, session) {
 
     HRaDeX::plot_uc_distance(uc_diff_dataset(),
                              fractional = input[["is_diff_fractional"]],
+                             squared = input[["is_diff_plot_squared"]],
                              interactive = T)
 
   })
@@ -204,6 +205,8 @@ app_server <- function(input, output, session) {
     validate(need(!is.null(state_1_uc()) & !is.null(state_2_uc()), "Please upload necessary files."))
 
     HRaDeX::plot_uc_real_dist(uc_diff_dataset(),
+                              fractional = input[["is_diff_plot_2_fractional"]],
+                              squared = input[["is_diff_plot_2_squared"]],
                               interactive = T)
 
   })

diff --git a/R/app_ui.R b/R/app_ui.R
@@ -120,23 +120,32 @@ app_ui <- function(request) {
               ),
               br(),
               tabsetPanel(
+                tabPanel(
+                  "UC Dist Plot 2",
+                  ggiraph::girafeOutput("uc_diff_plot_2"),
+                  checkboxInput(inputId = "is_diff_plot_2_fractional",
+                                label = "See fractional data?",
+                                value = F),
+                  checkboxInput(inputId = "is_diff_plot_2_squared",
+                                label = "See squared data?",
+                                value = F),
+                  p("Method of calculation:"),
+                  p("For every time point of uptake curve for two states it is recognized which state has higher value and which has lower. From the higher value is substracted the uncertainty value to have the lowest possible value. To the lower value the uncertainty value is added to get the highest possible value. Now, the difference is calculated. Values from all of the time points are summarised to get one value of difference between uptake curves for each peptide.")
+
+                ),
                 tabPanel(
                   "UC Dist Plot",
                   ggiraph::girafeOutput("uc_diff_plot"),
                   checkboxInput(inputId = "is_diff_fractional",
                                 label = "See fractional data?",
                                 value = F),
+                  checkboxInput(inputId = "is_diff_plot_squared",
+                                label = "See squared data?",
+                                value = F),
                   p("Method of calculation:"),
                   p("For every time point of uptake curve for two states is calculated the value: difference between uptake in first state and second state, divided by the sum of uncertainty. Then, all the values from the time points are summarised to get one value for each peptide.")
                 ),
-                tabPanel(
-                  "UC Dist Plot 2",
-                  ggiraph::girafeOutput("uc_diff_plot_2"),
-                  p("Method of calculation:"),
-                  p("For every time point of uptake curve for two states it is recognized which state has higher value and which has lower. From the higher value is substracted the uncertainty value to have the lowest possible value. To the lower value the uncertainty value is added to get the highest possible value. Now, the difference is calculated. Values from all of the time points are summarised to get one value of difference between uptake curves for each peptide."),
-                  p("For now only in fractional form.")
 
-                ),
                 tabPanel(
                   "Data",
                   DT::dataTableOutput("uc_diff_plot_data")