From 676db102e4cca3d3536eecd393f082a72f77c7a0 Mon Sep 17 00:00:00 2001
From: Tom Elliott <tomelliottnz@gmail.com>
Date: Mon, 24 Feb 2025 14:35:10 +1300
Subject: [PATCH] remove file

---
 tests/testthat/test-custom-types.R | 30 ------------------------------
 1 file changed, 30 deletions(-)
 delete mode 100644 tests/testthat/test-custom-types.R

diff --git a/tests/testthat/test-custom-types.R b/tests/testthat/test-custom-types.R
deleted file mode 100644
index cc1d601..0000000
--- a/tests/testthat/test-custom-types.R
+++ /dev/null
@@ -1,30 +0,0 @@
-hist_type <- ts_object(
-    input_type = "z.object({
-       breaks: z.array(z.number()),
-       counts: z.array(z.number()),
-       density: z.array(z.number()),
-       mids: z.array(z.number()),
-       xname: z.string(),
-       equidist: z.boolean(),
-     })",
-    return_type = "Robj.list({
-         breaks: Robj.numeric(),
-         counts: Robj.numeric(),
-         density: Robj.numeric(),
-         mids: Robj.numeric(),
-         xname: Robj.character(1),
-         equidist: Robj.logical(1),
-     })",
-    check = function(x) {
-        stopifnot(is.list(x))
-        stopifnot(all(c("breaks", "counts", "density", "mids", "xname", "equidist") %in% names(x)))
-        stopifnot(is.numeric(x$breaks))
-        stopifnot(is.numeric(x$counts))
-        stopifnot(is.numeric(x$density))
-        stopifnot(is.numeric(x$mids))
-        stopifnot(is.character(x$xname))
-        stopifnot(is.logical(x$equidist))
-        stopifnot(isTRUE(all.equal(length(x$breaks), length(x$counts), length(x$density), length(x$mids))))
-        x
-    }
-)