Remove workarounds in tests for generation issues

Author: lazappi

tests/testthat/helper-py-R-equivalences.R

@@ -42,8 +42,8 @@ r_generate_dataset <- function(n_obs, n_vars, write = FALSE, ...) {
     n_vars,
     x_type = check_arg(args, "x_type", "numeric_matrix"),
     layer_types = check_arg(args, "layer_types", character()),
-    obs_types = ifelse("obs_types" %in% names(args), args$obs_types, "integer"),
-    var_types = ifelse("var_types" %in% names(args), args$var_types, "integer"),
+    obs_types = check_arg(args, "obs_types", character()),
+    var_types = check_arg(args, "var_types", character()),
     obsm_types = check_arg(args, "obsm_types", character()),
     varm_types = check_arg(args, "varm_types", character()),
     obsp_types = check_arg(args, "obsp_types", character()),

tests/testthat/test-roundtrip-obsmvarm.R

@@ -195,10 +195,6 @@ for (name in test_names) {
         obsm_types = list(r_name),
         varm_types = list(r_name)
       )
-      # TODO: Remove this once issue #286 is fixed https://github.com/scverse/anndataR/issues/286
-      if (!(r_name %in% names(vector_generators))) {
-        adata_r$varm[[r_name]] <- generate_matrix(20, 20, r_name)
-      }
       write_h5ad(adata_r, file_r2, mode = "w")
 
       # Remove the rhdf5-NA.OK for comparison

tests/testthat/test-roundtrip-obsvar.R

@@ -165,15 +165,6 @@ for (name in test_names) {
         obs_types = list(r_name),
         var_types = list(r_name)
       )
-      # TODO: Fix when issue #289 is fixed https://github.com/scverse/anndataR/issues/289
-      if (r_name %in% c("logical", "logical_with_nas")) {
-        adata_r$obs[[r_name]] <- rep(c(TRUE, FALSE), 5)
-        adata_r$var[[r_name]] <- rep(c(TRUE, FALSE), 10)
-        if (r_name == "logical_with_nas") {
-          adata_r$obs[[r_name]][1] <- NA
-          adata_r$var[[r_name]][1] <- NA
-        }
-      }
 
       write_h5ad(adata_r, file_r2)