Skip to content

Commit

Permalink
fix bug in tests for makeSignatures related to homogenization of vari…
Browse files Browse the repository at this point in the history
…able names
  • Loading branch information
sdgamboa committed Jun 21, 2024
1 parent a511505 commit aa4fd47
Show file tree
Hide file tree
Showing 2 changed files with 4 additions and 4 deletions.
4 changes: 2 additions & 2 deletions tests/testthat/test-makeSignatures-DataFrame.R
Original file line number Diff line number Diff line change
@@ -1,9 +1,9 @@
library(purrr)
library(S4Vectors)
bp <- map(importBugphyzz(), DataFrame)
sigsNames <- map(bp, ~ makeSignatures(.x, tax_id_type = "Taxon_name")) |>
sigsNames <- map(bp, ~ makeSignatures(.x, taxIdType = "Taxon_name")) |>
list_flatten(name_spec = "{inner}")
sigsIDs <- map(bp, ~ makeSignatures(.x, tax_id_type = "NCBI_ID")) |>
sigsIDs <- map(bp, ~ makeSignatures(.x, taxIdType = "NCBI_ID")) |>
list_flatten(name_spec = "{inner}")

test_that("makeSignatures works with IDs", {
Expand Down
4 changes: 2 additions & 2 deletions tests/testthat/test-makeSignatures.R
Original file line number Diff line number Diff line change
@@ -1,8 +1,8 @@
library(purrr)
bp <- importBugphyzz()
sigsNames <- map(bp, ~ makeSignatures(.x, tax_id_type = "Taxon_name")) |>
sigsNames <- map(bp, ~ makeSignatures(.x, taxIdType = "Taxon_name")) |>
list_flatten(name_spec = "{inner}")
sigsIDs <- map(bp, ~ makeSignatures(.x, tax_id_type = "NCBI_ID")) |>
sigsIDs <- map(bp, ~ makeSignatures(.x, taxIdType = "NCBI_ID")) |>
list_flatten(name_spec = "{inner}")

test_that("makeSignatures works with IDs", {
Expand Down

0 comments on commit aa4fd47

Please sign in to comment.