R/pullAdmData.R

Defines functions pullAdmData

Documented in pullAdmData

#' Generate subset of data
#'
#' Allows extrction data for a particular VDC, muni, or district.
#' @param adm.name input character vector of District/VDC
#' @param adm.flag Either string district or string vdcmun
#' @param tablename PostgreSQL data table name
#' @return dataframe containing subsetted data
#' @export
#' @examples
#' pullAdmData("Kathmandu", "district", building)
#' pullAdmData("Pokhara U.M.N.P.", "vdcmun", death)

pullAdmData <- function(adm.name, adm.flag, tablename) {
  #
  #require(hrrpR)
  pg <- dbDriver("PostgreSQL")
  con <- dbConnect(pg, user="bradleywilson", password="",
                 host="localhost", port=5432, dbname="Nepal")

  ##
  if (adm.flag == "district") {
    dist.code <- codeNameQuery(adm.name,"name")
    dist.code <- paste("hrrp_dcode='",dist.code,"'", sep = "")
    
    # Build SQL query
    query <- paste("select * from", tablename,
      "where", dist.code, sep = " ")
    out.df <- dbGetQuery(con, query) # Get data

    }

  else if (adm.flag == "vdcmun") {
    vdc.code <- codeNameQuery(adm.name,"name")
    vdc.code <- paste("hrrp_vcode='",vdc.code,"'", sep = "")
  
    # Build SQL query
    query <- paste("select * from", tablename,
      "where", vdc.code, sep = " ")
    out.df <- dbGetQuery(con, query) # Get data

    }


  dbDisconnect(con)
  return(out.df) # Return data

}
bradleyswilson/hrrp documentation built on May 28, 2019, 7:13 p.m.