Collapse HMM metadata table multi-name assignments.
Arguments
- hmm_meta_expanded
An expanded HMM metadata table (as read-in by
read_hmm_meta()) and expanded byexpand_hmm_meta().
Examples
path <- padlocdev_example("padloc-db/hmm_meta.txt")
hmm_meta <- read_hmm_meta(path)
hmm_meta_expanded <- expand_hmm_meta(hmm_meta)
hmm_meta_collapsed <- collapse_hmm_meta(hmm_meta_expanded)
hmm_meta_collapsed
#> # A tibble: 43 × 15
#> hmm.acc hmm.name hmm.description protein.name secondary.name author
#> <chr> <chr> <chr> <chr> <chr> <chr>
#> 1 PDLC00150 HamA1_00001 DUF1837 domain HamA1|HamA NA Payne LJ
#> 2 PDLC00151 HamA1_00002 DUF1837 domain HamA1|HamA NA Payne LJ
#> 3 PDLC00174 HamB1_00001 DEAD-box helicase HamB1|HamB NA Payne LJ
#> 4 PDLC00175 HamB1_00002 DEAD-box helicase HamB1|HamB NA Payne LJ
#> 5 PDLC00195 HamA2_00001 DUF1837 domain HamA2|HamA NA Payne LJ
#> 6 PDLC00196 HamA2_00002 DUF1837 domain HamA2|HamA NA Payne LJ
#> 7 PDLC00199 HamB2_00001 DEAD-box helicase HamB2|HamB NA Payne LJ
#> 8 PDLC00200 HamB2_00002 DEAD-box helicase HamB2|HamB NA Payne LJ
#> 9 PDLC00202 HamC2_00001 DUF3223 domain HamC2|HamC NA Payne LJ
#> 10 PDLC00203 HamC2_00002 DUF3223 domain HamC2|HamC NA Payne LJ
#> # ℹ 33 more rows
#> # ℹ 9 more variables: number.seq <dbl>, length.hmm <dbl>,
#> # e.value.threshold <dbl>, hmm.coverage.threshold <dbl>,
#> # target.coverage.threshold <dbl>, system <chr>, literature.ref <chr>,
#> # database.ref <chr>, comments <chr>