mutate staxid

heronoh · Jan 30, 2024 · e9dadac · e9dadac
1 parent 951f312
commit e9dadac
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/R/get_blast_results.R b/R/get_blast_results.R
@@ -84,10 +84,10 @@ get_blast_results <- function(asv,
       ),
       trim_ws = TRUE,
       comment = "#"
-    ) %>%
-    dplyr::mutate(dplyr::across(.cols = dplyr::ends_with("taxid"), # adicionado para testes
-                         ~ as.character(.)
-    ))
+      ) |>
+    dplyr::mutate("staxid" = as.character(staxid)) # adicionado para testes
+    # dplyr::mutate(dplyr::across(.cols = dplyr::ends_with("taxid"), # adicionado para testes
+                         # ~ as.character(.)))
 
   blast_table$`subject header` <- purrr::map_chr(
     .x = blast_table$subject,