Skip to content

Commit

Permalink
more noSuggests fixes
Browse files Browse the repository at this point in the history
  • Loading branch information
cb4ds committed Jun 7, 2024
1 parent 6ed5496 commit 2ddcc5d
Show file tree
Hide file tree
Showing 2 changed files with 11 additions and 3 deletions.
4 changes: 4 additions & 0 deletions tests/testthat/test-other-decorations.R
Original file line number Diff line number Diff line change
Expand Up @@ -101,6 +101,8 @@ test_that("barplot annotations", {
})

test_that("segregated barplot and boxplot marker decorations", {
testthat::skip_if_not_installed("dplyr")

tryCatch({
data <- iris %>%
mutate(Facet = paste0("facet_", seq(NROW(iris)) %% 2)) %>%
Expand Down Expand Up @@ -166,6 +168,8 @@ test_that("segregated barplot and boxplot marker decorations", {
})

test_that("double-segregated barplot and boxplot marker decorations", {
testthat::skip_if_not_installed("dplyr")

tryCatch({
data <- iris %>%
mutate(Facet = sample(c("facet_0", "facet_1", "NA"), size = NROW(iris), replace = TRUE),
Expand Down
10 changes: 7 additions & 3 deletions tests/testthat/test-other-logical-groups.R
Original file line number Diff line number Diff line change
Expand Up @@ -79,6 +79,8 @@ test_that("bar plot values are logical", {
})

test_that("pre-calculated bar plot values are logical", {
testthat::skip_if_not_installed("dplyr")

precalc_data <- data.frame(mean = c(5, 10),
stdev = c(0.5, 1),
row.names = c(FALSE, TRUE)) %>%
Expand Down Expand Up @@ -108,8 +110,9 @@ test_that("pre-calculated bar plot values are logical", {
})

test_that("histogram values are logical", {
hist_data <- data.frame("TRUE" = vals, "FALSE" = vals, check.names = FALSE)
testthat::skip_if_not_installed("dplyr")

hist_data <- data.frame("TRUE" = vals, "FALSE" = vals, check.names = FALSE)
hist_annot_list <- list(NULL,
select(annot_data, NumericVar),
select(annot_data, CategoryVar))
Expand All @@ -133,8 +136,9 @@ test_that("histogram values are logical", {
test_that("scatter plot values are logical", {
scatter_data <- data %>%
t() %>%
as.data.frame() %>%
mutate(QC_Var2 = 1:6)
as.data.frame()

scatter_data$QC_Var2 <- 1:6

for (i in seq_along(annot_data_list)) {
result <- canvasXpress(
Expand Down

0 comments on commit 2ddcc5d

Please sign in to comment.