PUF Download in R
parent
63c1ff7386
commit
86fb405a4f
|
@ -0,0 +1,27 @@
|
||||||
|
library(httr)
|
||||||
|
library(foreign)
|
||||||
|
|
||||||
|
shorten_puf <- function(full_puf) {
|
||||||
|
stage_1 <- gsub("C-0", "", full_puf)
|
||||||
|
stage_2 <- gsub("C-", "", stage_1)
|
||||||
|
|
||||||
|
tolower(stage_2)
|
||||||
|
}
|
||||||
|
|
||||||
|
download_puf <- function(short_puf) {
|
||||||
|
puf_base <- "http://meps.ahrq.gov/mepsweb/data_files/pufs/"
|
||||||
|
puf_suffix <- "ssp.zip"
|
||||||
|
|
||||||
|
zip_filename <- paste0(short_puf, "ssp.zip")
|
||||||
|
filename <- paste0(short_puf, ".ssp")
|
||||||
|
puf_url <- paste0(puf_base, zip_filename)
|
||||||
|
download.file(puf_url, zip_filename)
|
||||||
|
|
||||||
|
# unzip
|
||||||
|
unzip(zip_filename, files = filename)
|
||||||
|
saveName <- paste0(short_puf, ".csv")
|
||||||
|
|
||||||
|
# read sas file and return as csv file
|
||||||
|
mydata <- read.xport(filename)
|
||||||
|
write.table(mydata, file = saveName, sep = ",")
|
||||||
|
}
|
Loading…
Reference in New Issue