## `checkm2` - 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") %>% 
    formatStyle(
        'Completeness',
        background = styleColorBar(c(0, 100), rgb(203/255, 239/255, 212/255)),
        backgroundSize = '100% 80%',
        backgroundRepeat = 'no-repeat',
        backgroundPosition = 'center') %>% 
    formatStyle(
        'Contamination',
        background = styleColorBar(c(0, 100), rgb(254/255, 224/255, 194/255)),
        backgroundSize = '100% 80%',
        backgroundRepeat = 'no-repeat',
        backgroundPosition = 'center')
    



```

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




---