Nothing
test_that("can zap width attribute from vector", {
x <- structure(1:5, display_width = 10)
y <- zap_widths(x)
expect_null(attributes(y))
})
test_that("can zap width attribute from vector in data frame", {
x <- structure(1:5, display_width = 10)
df <- data.frame(x = x)
out <- zap_widths(df)
expect_null(attributes(out$x))
})
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.