diamonds.R

#install.packages("xtable")
#https://www.r-bloggers.com/getting-tables-from-r-output/
library(xtable)
library(ggplot2)
data("diamonds")
a=summary(diamonds)
b=xtable(a)
print.xtable(b, type="html", file="diamsum.html")
getwd()

## [1] "/home/ajayohri/Desktop/test"

dir(,pattern = "html")

## [1] "arules.html"                     "data_manipulation_and_dviz.html"
## [3] "dataviz.html"                    "decisiontrees.html"             
## [5] "diamsum.html"                    "strings4.html"                  
## [7] "svd.html"                        "test_money.html"