bugfix: handled ordered variables correctly

Author: ThierryO

R/read_vc.R

@@ -94,7 +94,7 @@ setMethod(
         function(i) {
           col_names[max(which(meta_cols < i))]
         },
-        character(0)
+        character(1)
       )
       if (optimize) {
         for (id in names(col_factor_level)) {

tests/testthat/test_a_basics.R

@@ -156,11 +156,35 @@ expect_error(
   read_vc(file = "sorting", root = root),
   "error in metadata"
 )
+
+test_no <- test_data
+test_no$test_ordered <- NULL
+expect_is(
+  output <- write_vc(
+    x = test_no, file = "no_ordered", root = root, sorting = "test_Date"
+  ),
+  "character"
+)
+sorted_test_no <- sorted_test_data
+sorted_test_no$test_ordered <- NULL
+expect_equal(
+  stored <- read_vc(file = "no_ordered", root = root),
+  sorted_test_no,
+  check.attributes = FALSE
+)
+for (i in colnames(stored)) {
+  expect_equal(
+    stored[[i]],
+    sorted_test_no[[i]],
+    label = paste0("stored$", i),
+    expected.label = paste0("sorted_test_data$", i)
+  )
+}
+
 file.remove(list.files(root, recursive = TRUE, full.names = TRUE))
 
 test_that(
-  "meta() works on complex",
-  {
+  "meta() works on complex", {
     z <- complex(real = runif(10), imaginary = runif(10))
     expect_equal(
       mz <- meta(z),