plt <- plot(iris2_tab, title="Summary statistics for the iris data")
pltdSize(plt) # width, height in millimeters
# Open a graphics device just the right size to hold the table:
sz <- pltdSize(plt, units="in")
dev.new(width=sz[1], height=sz[2], noRStudioGD=TRUE)
plt
Run the code above in your browser using DataLab