Corregir bug cuando no hay uno de los aminoacidos los codones daban NaN.

2026-03-31 15:10:06 +02:00
parent 9b48188ac2
commit cb31cf7ec6
1 changed files with 1 additions and 0 deletions
@@ -84,6 +84,7 @@ server <- function(input, output) {
        merge(list2data(CodRef, "AA","codon")) %>% 
        group_by(AA) %>% 
        mutate(across(all_of(names(txtQuery)), function(x) x=x/sum(x))) %>% 
+        mutate(across(all_of(names(txtQuery)), ~ case_when(is.na(.) ~ 0, T~.) )) %>% 
        ungroup()

      pca_ref<-read.table("../Scripts/pca_HAdV5_EGFP_MONO_EMM_BH_VCN_APIS_MOD_PDT_ADAPT_Tox.txt",sep="\t", dec = ",", header = T)