library(testthat) library(vdiffr) library(viewpoly) test_check("viewpoly")