# NOT RUN {
d <- data.frame(p= c(TRUE, FALSE, NA),
r= I(list(1,2,3)),
s= NA,
t= as.raw(3:5),
w= 1:3,
x= c(NA,2,3),
y= factor(c(3,5,NA)),
z= c('a',NA,'z'),
stringsAsFactors=FALSE)
d$q <- list(1,2,3)
replyr_summary(d)
# }
Run the code above in your browser using DataLab