# \donttest{
library(Hmisc)
desc <- describe(mtcars)
is_hdesc(desc) # TRUE
is_hdesc(desc[[1L]]) # TRUE
# }
# \donttest{
is_single_hdesc(desc) # FALSE
is_single_hdesc(desc[[1L]]) # TRUE
# }
Run the code above in your browser using DataLab