Nothing
## -----------------------------------------------------------------------------
d <- data.frame(
names = c("a", "b", "c", "d"),
x = c(1, 2, 3, 4 ),
y = c(1, 4, 9, 16 ),
stringsAsFactors = FALSE)
print(d)
## -----------------------------------------------------------------------------
str(d)
## -----------------------------------------------------------------------------
library("wrapr")
## ---- comment=''--------------------------------------------------------------
cat(draw_frame(d))
## -----------------------------------------------------------------------------
d2 <- build_frame(
"names", "x", "y" |
"a" , 1 , 1 |
"b" , 2 , 4 |
"c" , 3 , 9 |
"d" , 4 , 16 )
print(d2)
## -----------------------------------------------------------------------------
build_frame(
"names", "x", "y" |
"a" , 1 , 1 ,
"b" , 2 , 4 ,
"c" , 3 , 9 ,
"d" , 4 , 16 )
## ---- comment=""--------------------------------------------------------------
cat(dump("d", ""))
## ---- comment=""--------------------------------------------------------------
cat(draw_frame(build_frame(
"names", "x", "y" |
"a", 1, 1,
"b", 2, 4,
"c", 3, 9,
"d", 4, 16)))
## -----------------------------------------------------------------------------
qchar_frame(
col_1, col_2, col_3 |
a , b , c |
d , e , "f g" )
## -----------------------------------------------------------------------------
build_frame(
"names", "x" , "y" |
"a" , 1 , 1 |
"b" , cos(2) , 4 |
"c" , (3+2) , 9 |
"d" , 4 , 16 )
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.