Adding functions to our package

• Create a new file with use_r() called “db_con”
• Put this function in the file and save it
• Use load_all() to load the package function.
• Run this code to make sure it works

use_r("db_con")

in R/db_con.R:

db_con <- function(dbname = "residents_per_sector") { 
            dbname <- match.arg(dbname)
         # We'll pretend we've connected to a database
         # and just return some hard-coded data instead. 
            data.frame(
            sector = as.factor(1:8),
            residents = c(1000, 2034, 4594, 2304, 8093, 1200, 300, 2398))
}