## Checkm2

`rule checkm2`

```{r checkm2, echo = F, message = F, warning = F, error = T}





# Read raw input
checkm2_raw = read_tsv(glob_list$checkm2)

checkm2_presentable = metadata_translate %>%
    select(sample) %>%
    left_join(checkm2_raw, by = c("sample" = "Name")) %>%
    
    mutate(
        #Completeness_Model_Used = str_replace(Completeness_Model_Used, "Neural Network", "NN"),
        Average_Gene_Length = round(Average_Gene_Length, 1)
    ) %>%
    rename_with(str_replace_all, pattern = "_", replacement = " ")
    

checkm2_presentable %>%
    custom_dt("checkm2")


```

*Table `r tableno()`: [Checkm2](https://github.com/chklovski/CheckM2) results. *




---