fix linked plots not highlighting due to NA values

EMSL-Computing · Oct 8, 2021 · 288a63e · 288a63e
1 parent bcdb2ae
commit 288a63e
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/srv_ui_elements/visualize_linked_plots_UI.R b/srv_ui_elements/visualize_linked_plots_UI.R
@@ -41,7 +41,7 @@ list(
       g1_samples = linked_plots_table()[row1, 'Group 1 Samples'] %>% stringr::str_extract_all(paste(sampnames, collapse="|")) %>% purrr::pluck(1)
       g2_samples = linked_plots_table()[row1, 'Group 2 Samples'] %>% stringr::str_extract_all(paste(sampnames, collapse="|")) %>% purrr::pluck(1)
 
-      edata_inds = revals$peakData2$e_data %>% select(g1_samples) %>% rowSums() %>% {. != 0}
+      edata_inds = revals$peakData2$e_data %>% select(g1_samples) %>% rowSums(na.rm = T) %>% {. != 0}
 
       ##
 
@@ -147,7 +147,7 @@ list(
       sampnames = revals$peakData2$f_data[,getFDataColName(revals$peakData2)]
       g1_samples = linked_plots_table()[row2, 'Group 1 Samples'] %>% stringr::str_extract_all(paste(sampnames, collapse="|")) %>% purrr::pluck(1)
       g2_samples = linked_plots_table()[row2, 'Group 2 Samples'] %>% stringr::str_extract_all(paste(sampnames, collapse="|")) %>% purrr::pluck(1)
-      edata_inds = revals$peakData2$e_data %>% select(g1_samples) %>% rowSums() %>% {. != 0}
+      edata_inds = revals$peakData2$e_data %>% select(g1_samples) %>% rowSums(na.rm=T) %>% {. != 0}
 
       scatter_types = c('Van Krevelen Plot', 'Kendrick Plot', 'Custom Scatter Plot')