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

ONATRY-CIT/app.R

@@ -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)