cleaning

hadexversum · Jul 3, 2019 · a836e95 · a836e95
1 parent 4e4082f
commit a836e95
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 12 deletions.
diff --git a/inst/HaDeX/server.R b/inst/HaDeX/server.R
@@ -197,15 +197,7 @@ server <- function(input, output, session) {
   })
 
   ##
-
-  stateOverlap <- reactive({
-
-
-
-  })
-
-  ##
-
+
   stateOverlap_out <- reactive({
 
     plot_coverage(dat = dat(), chosen_state = input[["chosen_state"]]) + 
@@ -232,7 +224,7 @@ server <- function(input, output, session) {
   ##
 
   stateOverlapDist_data <- reactive({
-    
+
     dat() %>%
       select(Start, End, State, Sequence) %>%
       filter(State == input[["chosen_state"]]) %>%
@@ -260,7 +252,7 @@ server <- function(input, output, session) {
   ##
 
   stateOverlapDist <- reactive({
-    
+
     mean_coverage <- round(mean(stateOverlapDist_data()[["coverage"]], na.rm = TRUE), 2)
     display_position <- (input[["plot_range"]][[1]] + input[["plot_range"]][[2]])/2
 

diff --git a/inst/HaDeX/ui.R b/inst/HaDeX/ui.R
@@ -271,7 +271,8 @@ ui <- fluidPage(theme = "HaDeX_theme.css",
                                                          label = "Correct sequence length:",
                                                          value = 300, 
                                                          step = 1),
-                                            h5("If C-term is not covered, enter correct value."),
+                                            h5("If C-terminal of is not covered by peptides, 
+                                               enter its correct position."),
                                             textOutput("sequence_length_exp_info")
                                      )
                                    )