fix

strengejacke · strengejacke · commit 584bca9e0818 · 2024-06-02T18:37:09.000+02:00
diff --git a/R/get_response.R b/R/get_response.R
@@ -75,6 +75,11 @@ get_response.default <- function(x, select = NULL, as_proportion = TRUE, source
     !is.matrix(response)) {
     response <- as.vector(response)
   }
+
+  # clear vctr-class attributes
+  if (inherits(response, "vctrs_vctr")) {
+    class(response) <- setdiff(class(response), c("haven_labelled", "vctrs_vctr"))
+  }
   response
 }
 

Original file line number	Diff line number	Diff line change
`@@ -75,6 +75,11 @@ get_response.default <- function(x, select = NULL, as_proportion = TRUE, source`
`75`	`75`	`!is.matrix(response)) {`
`76`	`76`	`response <- as.vector(response)`
`77`	`77`	`}`
	`78`	`+`
	`79`	`+ # clear vctr-class attributes`
	`80`	`+ if (inherits(response, "vctrs_vctr")) {`
	`81`	`+ class(response) <- setdiff(class(response), c("haven_labelled", "vctrs_vctr"))`
	`82`	`+ }`
`78`	`83`	`response`
`79`	`84`	`}`
`80`	`85`