From 5f97b4b60fe005f1e4ec01cbb3f1aae9b89c65c9 Mon Sep 17 00:00:00 2001 From: kartikeya Date: Mon, 7 Aug 2023 18:05:09 +0530 Subject: [PATCH] fixing linter --- tests/testthat/test-utils.R | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/tests/testthat/test-utils.R b/tests/testthat/test-utils.R index b5045a69..0c55b1ea 100644 --- a/tests/testthat/test-utils.R +++ b/tests/testthat/test-utils.R @@ -9,11 +9,11 @@ test_that("apply_plot_modifications correctly modifies plot objects", { # Test case 1: Modify ggplot object with dblclicking enabled modified_ggplot <- apply_plot_modifications(ggplot_obj, "gg", TRUE, list(x = c(4, 7), y = c(2, 4))) - expect_true(identical(class(modified_ggplot), class(ggplot_obj))) # Check class of modified object + expect_true(identical(class(modified_ggplot), class(ggplot_obj))) # Test case 2: Modify ggplot object with dblclicking disabled modified_ggplot <- apply_plot_modifications(ggplot_obj, "gg", FALSE, list(x = c(4, 7), y = c(2, 4))) - expect_true(identical(class(modified_ggplot), class(ggplot_obj))) # Check class of modified object + expect_true(identical(class(modified_ggplot), class(ggplot_obj))) # Test case 3: Modify grob object grob_obj <- grid::rectGrob() @@ -22,5 +22,5 @@ test_that("apply_plot_modifications correctly modifies plot objects", { # Test case 4: Do not modify plot object unchanged_plot <- apply_plot_modifications(ggplot_obj, "other_type", TRUE, list(x = c(4, 7), y = c(2, 4))) - expect_true(identical(unchanged_plot, ggplot_obj)) # Check if plot object remains unchanged + expect_true(identical(unchanged_plot, ggplot_obj)) })