Nothing
library(qwraps2)
# verify the exported data sets
stopifnot(
identical(
data(package = "qwraps2")$results[, "Item"]
, c("mtcars2", "pefr", "spambase")
)
)
# the data sets should be lazyloaded, so the following should just work
mtcars2
pefr
spambase
################################################################################
## mtcars2 checks ##
# if these dim sizes fail and the dimensions have changed, make sure to update
# the R/datasets.R documentation too
stopifnot(inherits(mtcars2, "data.frame"))
stopifnot(identical(nrow(mtcars2), 32L))
stopifnot(identical(ncol(mtcars2), 19L))
stopifnot(identical(names(mtcars2)[1], "make"))
stopifnot(identical(names(mtcars2)[2], "model"))
stopifnot(identical(names(mtcars2)[3], "mpg"))
stopifnot(identical(names(mtcars2)[4], "disp"))
stopifnot(identical(names(mtcars2)[5], "hp"))
stopifnot(identical(names(mtcars2)[6], "drat"))
stopifnot(identical(names(mtcars2)[7], "wt"))
stopifnot(identical(names(mtcars2)[8], "qsec"))
stopifnot(identical(names(mtcars2)[9], "cyl"))
stopifnot(identical(names(mtcars2)[10], "cyl_character"))
stopifnot(identical(names(mtcars2)[11], "cyl_factor"))
stopifnot(identical(names(mtcars2)[12], "vs"))
stopifnot(identical(names(mtcars2)[13], "engine"))
stopifnot(identical(names(mtcars2)[14], "am"))
stopifnot(identical(names(mtcars2)[15], "transmission"))
stopifnot(identical(names(mtcars2)[16], "gear"))
stopifnot(identical(names(mtcars2)[17], "gear_factor"))
stopifnot(identical(names(mtcars2)[18], "carb"))
stopifnot(identical(names(mtcars2)[19], "test_date"))
# verify values are the same as in the mtcars data set
stopifnot(
sapply(names(mtcars), function(nm) {identical(mtcars2[[nm]], mtcars[[nm]])})
)
# verify the levels of the mtcars2$cyl_factor are as expected
stopifnot(identical(class(mtcars2[["cyl_factor"]]), "factor"))
stopifnot(
identical(
levels(mtcars2[["cyl_factor"]])
,
c("6 cylinders", "4 cylinders", "8 cylinders")
)
)
# character version
stopifnot(identical(class(mtcars2[["cyl_character"]]), "character"))
stopifnot(
identical(
sort(unique(mtcars2[["cyl_character"]]))
,
c("4 cylinders", "6 cylinders", "8 cylinders")
)
)
# gear_factor
stopifnot(identical(class(mtcars2[["gear_factor"]]), "factor"))
stopifnot(
identical(
levels(mtcars2[["gear_factor"]])
,
c("3 forward gears", "4 forward gears", "5 forward gears")
)
)
# engine
stopifnot(identical(class(mtcars2[["engine"]]), "factor"))
stopifnot(
identical(
levels(mtcars2[["engine"]])
,
c("V-shaped", "straight")
)
)
# transmission
stopifnot(identical(class(mtcars2[["transmission"]]), "factor"))
stopifnot(
identical(
levels(mtcars2[["transmission"]])
,
c("Automatic", "Manual")
)
)
################################################################################
## spambase checks ##
# verify the names
stopifnot(
identical(
names(spambase)
, c("word_freq_make", "word_freq_address", "word_freq_all", "word_freq_3d",
"word_freq_our", "word_freq_over", "word_freq_remove",
"word_freq_internet", "word_freq_order", "word_freq_mail",
"word_freq_receive", "word_freq_will", "word_freq_people",
"word_freq_report", "word_freq_addresses", "word_freq_free",
"word_freq_business", "word_freq_email", "word_freq_you",
"word_freq_credit", "word_freq_your", "word_freq_font", "word_freq_000",
"word_freq_money", "word_freq_hp", "word_freq_hpl", "word_freq_george",
"word_freq_650", "word_freq_lab", "word_freq_labs", "word_freq_telnet",
"word_freq_857", "word_freq_data", "word_freq_415", "word_freq_85",
"word_freq_technology", "word_freq_1999", "word_freq_parts",
"word_freq_pm", "word_freq_direct", "word_freq_cs", "word_freq_meeting",
"word_freq_original", "word_freq_project", "word_freq_re",
"word_freq_edu", "word_freq_table", "word_freq_conference",
"char_freq_semicolon", "char_freq_parenthesis",
"char_freq_square_bracket", "char_freq_exclamation_point",
"char_freq_dollar_sign", "char_freq_pound", "capital_run_length_average",
"capital_run_length_longest", "capital_run_length_total", "spam")
)
)
################################################################################
## End of File ##
################################################################################
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.