R/geometry_create_circle.R

In katiesocolow/Week_2_Project_Package: geometry

if (FALSE) {
  geo_circle <- read.table(text = "
                        radius area
                        1     pi
                        2     4 * pi
                        3     9 * pi
                        4     16 * pi
                        5     25 * pi
                        6     36 * pi
                        7     49 * pi
                        8     64 * pi
                        ")
  devtools::use_data(geo_circle, overwrite = TRUE)
}