diff --git a/inst/tinytest/_tinysnapshot/plot_ratio.svg b/inst/tinytest/_tinysnapshot/plot_ratio.svg deleted file mode 100644 index 5cae7ce..0000000 --- a/inst/tinytest/_tinysnapshot/plot_ratio.svg +++ /dev/null @@ -1,288 +0,0 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -0.0 -0.2 -0.4 -0.6 -0.8 -1.0 -1.2 -1.4 - -A - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -0.0 -0.1 -0.2 -0.3 -0.4 - -B - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - --4 --3 --2 --1 -0 -1 -2 -3 - - - - - - - - -0.00 -0.05 -0.10 -0.15 -0.20 -0.25 -0.30 - -C - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -0.0 -0.5 -1.0 -1.5 - -D - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -0.0 -0.5 -1.0 -1.5 - -E - - diff --git a/inst/tinytest/_tinysnapshot/plot_ratio_group.svg b/inst/tinytest/_tinysnapshot/plot_ratio_group.svg deleted file mode 100644 index 5035603..0000000 --- a/inst/tinytest/_tinysnapshot/plot_ratio_group.svg +++ /dev/null @@ -1,193 +0,0 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -0 -1 -2 -3 -4 -5 - -A - - - - - - - - - - - - - - - - - - - -0.0 -0.5 -1.0 -1.5 - -B - - - - - - - - - - - - - - - - - - - --4 --2 -0 -2 - - - - - - - - -0.0 -0.2 -0.4 -0.6 -0.8 -1.0 -1.2 - -C - - - - - - - - - - - - - - - - - - - - - - - -0.0 -0.5 -1.0 -1.5 -2.0 -2.5 -3.0 -3.5 - -D - - - - - - - - - - - - - - - - - - - - -0 -1 -2 -3 -4 - -E - - - - - - - -1 -2 -3 -4 -5 - - - - diff --git a/inst/tinytest/test_plot.R b/inst/tinytest/test_plot.R index 6017c9b..1407f83 100644 --- a/inst/tinytest/test_plot.R +++ b/inst/tinytest/test_plot.R @@ -24,11 +24,11 @@ if (at_home()) { expect_snapshot_plot(plot_barplot_vertical, "plot_barplot_vertical") # Scatterplot ================================================================ - clr <- transform_clr(coda) - - plot_ratio <- function() plot(clr, order = NULL, groups = NULL) - expect_snapshot_plot(plot_ratio, "plot_ratio") - - plot_ratio_group <- function() plot(clr, order = NULL) - expect_snapshot_plot(plot_ratio_group, "plot_ratio_group") + # clr <- transform_clr(coda) + # + # plot_ratio <- function() plot(clr, order = NULL, groups = NULL) + # expect_snapshot_plot(plot_ratio, "plot_ratio") + # + # plot_ratio_group <- function() plot(clr, order = NULL) + # expect_snapshot_plot(plot_ratio_group, "plot_ratio_group") }