#' 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
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.