enframe() also works for data frames, creates a packed data frame.

krlmlr · krlmlr · commit 776119e5e2bc · 2021-08-08T04:45:58.000+02:00
Revert "REVERT ME: Break for data frames for compatibility with codebook" This reverts commit 885c191.
diff --git a/R/enframe.R b/R/enframe.R
@@ -28,8 +28,7 @@ enframe <- function(x, name = "name", value = "value") {
     x <- logical()
   }
 
-  # FIXME: Enable again for data frames, add test
-  if (!vec_is(x) || is.data.frame(x)) {
+  if (!vec_is(x)) {
     cnd_signal(error_enframe_must_be_vector(x))
   }
 

Original file line number	Diff line number	Diff line change
`@@ -28,8 +28,7 @@ enframe <- function(x, name = "name", value = "value") {`
`28`	`28`	`x <- logical()`
`29`	`29`	`}`
`30`	`30`
`31`		`- # FIXME: Enable again for data frames, add test`
`32`		`- if (!vec_is(x) \|\| is.data.frame(x)) {`
	`31`	`+ if (!vec_is(x)) {`
`33`	`32`	`cnd_signal(error_enframe_must_be_vector(x))`
`34`	`33`	`}`
`35`	`34`