# NOT RUN {
ft <- qflextable( head( mtcars ) )
# }
# NOT RUN {
if( require("ggplot2") && require("webshot") ){
print(qplot(speed, dist, data = cars, geom = "point"))
grid::grid.raster(as_raster(ft))
}
# }
Run the code above in your browser using DataLab