refactor: remove class from levelsDS return, update test

Author: timcadman

R/levelsDS.R

@@ -3,9 +3,8 @@
 #' @description This function is similar to R function \code{levels}.
 #' @details The function returns the levels of the input vector or list.
 #' @param x a factor vector
-#' @return a list with two elements: \code{Levels} (the factor levels present
-#'   in the vector) and \code{class} (the class of the input object, for
-#'   client-side consistency checking)
+#' @return a list with one element: \code{Levels} (the factor levels present
+#'   in the vector)
 #' @author Alex Westerberg, for DataSHIELD Development Team
 #' @author Tim Cadman, Genomics Coordination Centre, UMCG, Netherlands
 #' @export
@@ -33,7 +32,7 @@ levelsDS <- function(x){
     stop("FAILED: Result length less than nfilter.levels.density of input length.", call. = FALSE)
   }
 
-  out.obj <- list(Levels=out, class=class(x.val))
+  out.obj <- list(Levels=out)
   return(out.obj)
 }
 #AGGREGATE FUNCTION

tests/testthat/test-smk-levelsDS.R

@@ -27,7 +27,7 @@ test_that("numeric vector levelsDS", {
 
     res <- levelsDS("input")
 
-    expect_length(res, 2)
+    expect_length(res, 1)
     expect_equal(class(res), "list")
     expect_equal(class(res$Levels), "character")
     expect_length(res$Levels, 4)