library(dplyr)
constant(Theoph) # data frame with 0 columns and 1 row
constant(Theoph, Subject) # Subject Wt Dose Study
Theoph$Study <- 1
constant(Theoph) # Study
constant(Theoph, Study) # Study
constant(Theoph, Study, Subject) # Subject Wt Dose Study
Theoph <- group_by(Theoph, Subject)
constant(Theoph) # Subject Wt Dose Study
constant(Theoph, Study) # Study
foo <- data.frame(x = 1)
foo <- group_by(foo, x)
class(foo) <- c('foo', class(foo))
stopifnot(identical(class(foo), class(constant(foo))))
Run the code above in your browser using DataLab