0.1.1052

Author: antaldaniel

DESCRIPTION

@@ -1,7 +1,7 @@
 Package: wbdataset
 Title: Making Datasets Truly Interoperable and Reusable in R with Wikibase
-Version: 0.1.1051
-Date: 2024-05-17
+Version: 0.1.1052
+Date: 2024-06-02
 Authors@R: 
     c(person(given="Daniel", family="Antal", 
            email= "[email protected]", 

NAMESPACE

@@ -19,6 +19,7 @@ export(get_wikidata_item)
 export(here)
 export(is_pid)
 export(is_qid)
+export(is_valid_wikibase_datatype)
 export(left_join_column)
 export(new_wikibase_session)
 importFrom(assertthat,assert_that)

man/is_valid_wikibase_datatype.Rd

@@ -0,0 +1,26 @@
+test_that("Valid Wikibase datatypes return TRUE", {
+  expect_true(is_valid_wikibase_datatype("wikibase-item"))
+  expect_true(is_valid_wikibase_datatype("string"))
+  expect_true(is_valid_wikibase_datatype("external-id"))
+  expect_true(is_valid_wikibase_datatype("wikibase-form"))
+})
+
+test_that("Invalid Wikibase datatypes return FALSE", {
+  expect_false(is_valid_wikibase_datatype("invalid-type"))
+  expect_false(is_valid_wikibase_datatype("item"))  # common mistake
+  expect_false(is_valid_wikibase_datatype("WIKIBASE-ITEM"))  # case-sensitive
+  expect_false(is_valid_wikibase_datatype("monolingual"))  # incomplete
+})
+
+test_that("Non-character inputs are coerced correctly", {
+  expect_false(is_valid_wikibase_datatype(123))   # not a string
+  expect_false(is_valid_wikibase_datatype(NA))    # missing value
+  expect_false(is_valid_wikibase_datatype(NULL))  # NULL value
+})
+
+test_that("Vectorized input works as expected", {
+  input <- c("wikibase-item", "string", "invalid", "url")
+  expected <- c(TRUE, TRUE, FALSE, TRUE)
+  expect_equal(is_valid_wikibase_datatype(input), expected)
+})
+