R/cpopulator.R

In trendct/ctnamecleaner: Connecticut Town Name and Population Matcher

#' CT Population Appender
#'  
#' Adds population of CT towns in extra column to dataframe.
#' @name ctpopulator
#' @param name Column with town names
#' @param data Name of dataframe
#' @return Whatever
#' @import dplyr
#' @importFrom stringr str_to_upper
#' @importFrom stringr str_to_lower
#' @importFrom stringr str_to_title
#' @importFrom stringr str_trim
#' @export
#' @examples
#' \dontrun{
#' ctpopulator(name_column, ctdata, filename="analysis")
#' }
NULL 

require(stringr)
require(dplyr)

ctpopulator <- function(name, data, filename="nope") {
  print("Checking to see if names match...")
  newdata <- as.list(match.call())
  thename <- as.character(newdata$name)

  names(data)[names(data)==thename] <- "name2"

  data$name2 <- as.character(data$name2)  
  data$name2 <- str_to_upper(data$name2)
  data$name2 <- str_trim(data$name2)

  #pop <- read.csv("data-raw/ctpop.csv", stringsAsFactors=FALSE)
  url <- "https://docs.google.com/spreadsheets/d/1xK4iKqW-uhX5UcK7g28M85HSUUubhWj3HzieT3VeAyo/pub?output=csv&id=1xK4iKqW-uhX5UcK7g28M85HSUUubhWj3HzieT3VeAyo"
  the_csv <- getURL(url,.opts=list(ssl.verifypeer=FALSE))
  pop <- read.csv(textConnection(the_csv))
  
  colnames(pop) <- c("name2", "pop2013")
  composite <- left_join(data, pop)  

  names(composite)[names(composite)=="name2"] <- thename

  
  if (filename != "nope") {
    file <- paste(filename, ".csv", sep="")
    write.csv(composite, file)
    print(paste("Congrats. The new file has been exported and is is called ", file, sep=""))
  } else {
    composite
  }
}