From c4cab7dafabbb42bb9abdd492c099fe2803cf887 Mon Sep 17 00:00:00 2001
From: Nic Crane <thisisnic@gmail.com>
Date: Fri, 25 Aug 2023 11:29:40 +0100
Subject: [PATCH] Change numeric vals to characters

---
 r/tests/testthat/test-data-type.R | 2 +-
 r/tests/testthat/test-schema.R    | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/r/tests/testthat/test-data-type.R b/r/tests/testthat/test-data-type.R
index 0f193f19d37..e7212eb61b5 100644
--- a/r/tests/testthat/test-data-type.R
+++ b/r/tests/testthat/test-data-type.R
@@ -609,7 +609,7 @@ test_that("DataType$code()", {
   expect_code_roundtrip(dictionary(index_type = int8(), value_type = large_utf8()))
   expect_code_roundtrip(dictionary(index_type = int8(), ordered = TRUE))
 
-  skip_if(packageVersion("rlang") < 1)
+  skip_if(packageVersion("rlang") < "1")
   # Are these unsupported for a reason?
   expect_error(
     eval(DayTimeInterval__initialize()$code()),
diff --git a/r/tests/testthat/test-schema.R b/r/tests/testthat/test-schema.R
index 77259fb5077..db91cee3309 100644
--- a/r/tests/testthat/test-schema.R
+++ b/r/tests/testthat/test-schema.R
@@ -43,7 +43,7 @@ test_that("Schema$code()", {
     schema(a = int32(), b = struct(c = double(), d = utf8()), e = list_of(binary()))
   )
 
-  skip_if(packageVersion("rlang") < 1)
+  skip_if(packageVersion("rlang") < "1")
   expect_error(
     eval(schema(x = int32(), y = DayTimeInterval__initialize())$code()),
     "Unsupported type"