Merge pull request #69 from katilingban/dev

add utils functions tests

R/theme_acdc.R

@@ -265,6 +265,7 @@ theme_acdc_dark <- function(base_family = set_acdc_font(),
                             ticks = FALSE) {
   theme_paleta(
     base_family = base_family,
+    base_size = base_size,
     plot_title_family = plot_title_family,
     plot_title_colour = plot_title_colour,
     subtitle_family = subtitle_family,

R/theme_paleta.R

@@ -195,17 +195,21 @@ theme_paleta <- function(base_family = set_paleta_font(),
   if (inherits(grid, "character") | grid == TRUE) {
     design <- design +
       ggplot2::theme(
-        panel.grid = ggplot2::element_line(colour = grid_col, size = 0.2)
+        panel.grid = ggplot2::element_line(colour = grid_col, linewidth = 0.2)
       )
 
     design <- design +
       ggplot2::theme(
-        panel.grid.major = ggplot2::element_line(colour = grid_col, size = 0.2)
+        panel.grid.major = ggplot2::element_line(
+          colour = grid_col, linewidth = 0.2
+        )
       )
 
     design <- design +
       ggplot2::theme(
-        panel.grid.minor = ggplot2::element_line(colour = grid_col, size = 0.05)
+        panel.grid.minor = ggplot2::element_line(
+          colour = grid_col, linewidth = 0.05
+        )
       )
 
     if (inherits(grid, "character")) {
@@ -234,7 +238,7 @@ theme_paleta <- function(base_family = set_paleta_font(),
   if (inherits(axis, "character") | axis == TRUE) {
     design <- design +
       ggplot2::theme(
-        axis.line = ggplot2::element_line(colour = axis_col, size = 0.15)
+        axis.line = ggplot2::element_line(colour = axis_col, linewidth = 0.15)
       )
 
     if (inherits(axis, "character")) {
@@ -246,7 +250,9 @@ theme_paleta <- function(base_family = set_paleta_font(),
       } else {
         design <- design +
           ggplot2::theme(
-            axis.line.x = ggplot2::element_line(colour = axis_col, size = 0.15)
+            axis.line.x = ggplot2::element_line(
+              colour = axis_col, linewidth = 0.15
+            )
           )
       }
 
@@ -256,18 +262,24 @@ theme_paleta <- function(base_family = set_paleta_font(),
       } else {
         design <- design +
           ggplot2::theme(
-            axis.line.y = ggplot2::element_line(colour = axis_col, size = 0.15)
+            axis.line.y = ggplot2::element_line(
+              colour = axis_col, linedwidth = 0.15
+            )
           )
       }
     } else {
       design <- design +
         ggplot2::theme(
-          axis.line.x = ggplot2::element_line(colour = axis_col, size = 0.15)
+          axis.line.x = ggplot2::element_line(
+            colour = axis_col, linewidth = 0.15
+          )
         )
 
       design <- design +
         ggplot2::theme(
-          axis.line.y = ggplot2::element_line(colour = axis_col, size = 0.15)
+          axis.line.y = ggplot2::element_line(
+            colour = axis_col, linewidth = 0.15
+          )
         )
     }
   } else {

tests/testthat/test-theme_paleta.R

@@ -1,13 +1,32 @@
 # Test paleta ------------------------------------------------------------------
 
-## Test paleta_fonts class
+library(ggplot2)
+
+## scatterplot
+p <- ggplot(data = mtcars, mapping = aes(x = mpg, y = disp, colour = factor(cyl))) +
+  geom_point(size = 3) +
+  scale_colour_manual(
+    name = "Cylinders",
+    values = acdc_palettes$acdc_secondary
+  ) +
+  labs(
+    title = "Light ACDC Theme",
+    subtitle = "Using the Africa CDC secondary palette",
+  )
+
+## Test paleta_fonts class ----
 testthat::expect_type(paleta_fonts, "list")
 
-## Test length of paleta fonts
+## Test length of paleta fonts ----
 testthat::expect_equal(length(paleta_fonts), 3)
 
-## Test output of set_paleta_font
+## Test output of set_paleta_font ----
 testthat::expect_type(set_paleta_font(), "character")
 testthat::expect_equal(length(set_paleta_font()), 1)
 
+## test theme_paleta() ----
+testthat::expect_silent(p + theme_paleta())
+
+
+
 

tests/testthat/test-utils.R

@@ -1,6 +1,16 @@
 # Tests for utility functions --------------------------------------------------
 
+## Test print function ----
+testthat::expect_silent(print(structure(acdc_palettes$acdc_primary, class = "palette")))
+
 ## Test get colours function ----
+testthat::expect_equal(get_colours() |> length(), nrow(paleta_colours))
+testthat::expect_equal(get_colour() |> length(), nrow(paleta_colours))
+testthat::expect_type(get_colour(pattern = "Blue", named = TRUE), "character")
+testthat::expect_gt(
+  get_colour(pattern = "Blue", named = TRUE) |> names() |> length(),
+  0
+)
 testthat::expect_type(get_colours(pattern = "Blue"), "character")
 testthat::expect_type(get_colours(pattern = "Blue", named = TRUE), "character")