호주 BOM 기상 데이터를 프로그래밍 방식으로 R

Question

으로 추출하십시오. http://www.bom.gov.au/climate/data/ 변전소 번호, 예를 들어 009572를 입력 할 수 있습니다. 변수 (예 : 온도)와 유형 (최대)을 선택하십시오. "데이터 가져 오기"를 클릭하면 "모든 연도의 데이터"링크가있는 페이지로 이동합니다. 그것을 클릭하면 zip 파일이 생깁니다. this questions에 대해 알고 있지만 여기에는 zip 파일에 대한 직접 링크가 없습니다. 호주 R & D 웹 사이트에서 날씨 데이터 추출을 자동화 할 수 있습니까?

Answer 1

metvurst는 여기 즉시 다운로드하기 위해 수행 한 코드 그리고 그것은 또한 당신의 p_c 문제를 해결합니다. 원할 경우 기능을 향상시킬 수 있습니다.

#daily code = 136 
#monthy code = 139 

bomdata<- function(station,code){ 
for(i in 1: length(station)){ 
p.url<-paste("http://www.bom.gov.au/jsp/ncc/cdio/weatherData/av?p_stn_num=",station[i],"&p_display_type=availableYears&p_nccObsCode=",code,sep ="") 
download.file(p.url,"test.txt") 
filelist <- list.files(pattern = ".txt") 
foo<- file(filelist,"r") 
text<- suppressWarnings(readLines(foo)) 
close(foo) 
l<- regexpr(":",text[1]) 
m<- unlist(gregexpr(",", text[1], perl = TRUE)) 
pc<- substr(text[1],l[[1]]+1,l[[1]]+(m[2]-(l[[1]]+1))) 
url<-paste("http://www.bom.gov.au/jsp/ncc/cdio/weatherData/av?p_display_type=dailyZippedDataFile&p_stn_num=",station[i],"&p_c=",pc,"&p_nccObsCode=",code,"&p_startYear=2013", sep ="") 
suppressWarnings(download.file(url,paste(station[i],".zip",sep= ""), mode = "wb")) 
unlink("test.txt") 
} 
} 

예

bomdata(073137,136) 

Answer 2

download.file()에서이 작업을 수행하는 방법을 여전히 볼 수 없지만 다음은 Chrome에서 "다운로드하기 전에 각 파일을 저장할 위치 묻기"기능이 거의 실행되지 않습니다. 나는 그것이 역 역에서 어떻게 변화하는지 무엇을 p_c = -18465084 방법을 알고 있다면

system(paste('"C:/Documents and Settings/UserName/Local Settings/Application Data/Google/Chrome/Application/chrome.exe"', 
     '-url http://www.bom.gov.au/jsp/ncc/cdio/weatherData/av?p_display_type=dailyZippedDataFile&p_stn_num=009572&p_c=-18465084&p_nccObsCode=136'), wait = FALSE) 

그 때 나는 다양한 국번을 통해 paste0() 및 루프를 사용할 수 있습니다.

Answer 3

시도해 볼 수 있습니다. metvurst 패키지에서 사용하는 코드 시퀀스입니다.

## SET URL FOR DATA DOWNLOAD 
url <- "http://www.bom.gov.au/ntc/IDO70004/IDO70004_" 

## YEARS TO BE DOWNLOADED 
yr <- 1993:2012 

## READ DATA FOR ALL YEARS FROM URL INTO LIST 
fijilst <- lapply(seq(yr), function(i) { 
read.csv(paste(url, yr[i], ".csv", sep = ""), na.strings = c(-9999, 999)) 
})