Merge pull request #52 from ricoderks/issue_51

Fix issue #51
ricoderks · Oct 30, 2023 · 3f4e7f1 · 3f4e7f1
2 parents 1060ad8 + 0e8cf21
commit 3f4e7f1
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 5 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,7 +1,7 @@
 Package: lipidomics
 Type: Package
 Title: Lipidomics workflow
-Version: 0.9.10
+Version: 0.9.10.9000
 Author: Rico Derks
 Maintainer: Rico Derks <[email protected]>
 Description: Lipidomics workflow to proces the result files (export alignment)

diff --git a/R/shinyAppServer.R b/R/shinyAppServer.R
@@ -1924,8 +1924,7 @@ shinyAppServer <- function(input, output, session) {
       req(all_data$analysis_data)
       # export needs to be in wide format
       export_wide <- all_data$analysis_data %>%
-        filter(.data$sample_type != "blank",
-               .data$keep == TRUE,
+        filter(.data$keep == TRUE,
                .data$class_keep == TRUE) %>%
         pivot_wider(id_cols = c(.data$my_id, .data$LongLipidName, .data$ShortLipidName, .data$LipidClass),
                     names_from = .data$sample_name,
@@ -1934,8 +1933,6 @@ shinyAppServer <- function(input, output, session) {
 
       if(all_data$merged_data == TRUE) {
         t_meta <- all_data$analysis_data %>%
-          # remove blanks
-          filter(.data$sample_type != "blank") %>%
           # select the columns
           select(.data$sample_name, .data$sample_type:last_col()) %>%
           select(-matches("\\.y")) %>%