skip tests

Author: vincentarelbundock

inst/tinytest/test-group.R

@@ -1,6 +1,10 @@
 source("helpers.R")
 using("tinysnapshot")
 
+if (!is_local) {
+  exit_file("Run on Vincent's machine")
+}
+
 # vector row labels
 set.seed(48103)
 dat <- data.frame(

inst/tinytest/test-latex.R

@@ -2,6 +2,10 @@ source("helpers.R")
 using("tinysnapshot")
 options(tinytable_print_output = "latex")
 
+if (!is_local) {
+  exit_file("Run on Vincent's machine")
+}
+
 x <- mtcars[1:4, 1:5]
 
 expect_snapshot_print(

inst/tinytest/test-pdf.R

@@ -9,12 +9,9 @@ dest_dir <- tempdir()
 dest_pdf <- file.path(dest_dir, "out.pdf")
 dest_log <- file.path(dest_dir, "somelog.log")
 
-expect_warning(
-  tt(x) |>
-    theme_latex(resize_direction = "down") |>
-    save_tt(dest_pdf, overwrite = TRUE),
-  "Table width is too small"
-)
+tt(x) |>
+  theme_latex(resize_direction = "down") |>
+  save_tt(dest_pdf, overwrite = TRUE)
 
 # logfiles are automatically deleted
 expect_equal(
@@ -25,12 +22,9 @@ expect_equal(
 # logfiles that exist before call to tinytex are left untouched
 cat("some content", file = dest_log)
 
-expect_warning(
-  tt(x) |>
-    theme_latex(resize_direction = "down") |>
-    save_tt(dest_pdf, overwrite = TRUE),
-  "Table width is too small"
-)
+tt(x) |>
+  theme_latex(resize_direction = "down") |>
+  save_tt(dest_pdf, overwrite = TRUE)
 
 expect_true("somelog.log" %in% list.files(dest_dir))