# NOT RUN {
#This is a brick
brick <- data.frame(
Level="A",
X1 = rep(3,4), #The number 3 is the brickrID for 'bright red'
X2 = rep(3,4)
)
#Convert the dataframe to a list object that can be rendered
brick_object <- brick %>%
bricks_from_table()
#Render it
brick_object %>%
build_bricks()
rgl::clear3d()
#Combine the option rgl_lit=FALSE & outline_bricks=TRUE
# This makes the rendering look like a drawing
brick_object %>%
build_bricks(outline_bricks = TRUE, rgl_lit = FALSE,
background_color = "#99e7ff")
rgl::clear3d()
# }
Run the code above in your browser using DataLab