Webアプリケーションに関連付けられたAPIを見つけるにはどうすればよいですか？

Question

私はRSOCrataパッケージを使用して、2014年から2016年までのデータをSocrataとOpen Data Networkを使用して検索することができました。これは、Center for Disease Control siteのLegionellosisの通知可能なケースについてのデータです。

2014年以前に残りの情報を取得するにはどうすればよいですか？

ここで私は2014年、2015年と2016年のために使用されるコードです：任意の提案が高く評価されている

#Legionellosis data 

    df.leg2014 <- read.socrata("https://data.cdc.gov/resource/cmap-p7au.json")#2014 
    df.leg2015 <- read.socrata("https://data.cdc.gov/resource/haxn-dihy.json") #2015 
    df.leg2016 <- read.socrata("https://data.cdc.gov/resource/wg57-d6dj.json") #2016 

！

Answer 1

独自の列ヘッダーを追加し、この関数を使用して年数と週数をループする必要があります。 return an empty tableまたはデータがotherwise unavailableのいずれかの年/週のコンボがあります。また、異なる数の列を返すようです。いくつかは12、いくつかは10です。何が起こっているのか分かりません。この関数には、すべてNAの列を削除する行があります。あなたはその行をコメントしたいかもしれません。私はコード内でそれを説明しようとしました。私はそれをとてもうまくテストしなかった。

read_MMWR_table <- function(year=1997, week=18){ 
    url <- paste0("https://wonder.cdc.gov/mmwr/mmwr_reps.asp?mmwr_year=", 
       year, 
       "&mmwr_week=", 
       week, 
       "&mmwr_table=2B&request=Export&mmwr_location=") 
    tmp <- readLines(url) 
    if(grepl("DOCTYPE html", tmp[1])){ 
    ret <- data.frame() 
    print("No table returned, no data...") 
    }else{ 
    start <- which(tmp=="tab delimited data:") + 1 
    if(grepl("DOCTYPE html", tmp[1])){ 
     ret <- data.frame() 
     print("No records found for this week/year") 
    }else{ 
     end <- min(which(tmp=="")[which(tmp=="") > 20]) 
     df <- read.table(textConnection(tmp[start:end]), sep="\t", skip=19, 
         stringsAsFactors=FALSE, header=FALSE) 
     # remove all NA cols 
     df <- df[,colSums(is.na(df))<nrow(df)] 
     ret <- df 
    } 
    } 
    return(ret) 
} 

df <- read_MMWR_table(year=2001, week=12) 
> head(df) 
      V1 V2 V3 V4 V5 V6 V7 V8 V9 V10 
1 W.N. CENTRAL 2,534 3,688 61 102 11 5 2 11 14 
2  Minn. 411 723 - - 1 1 - 8 6 
3   Iowa 202 224 - - 2 2 - - - 
4   Mo. 1,013 1,803 58 98 5 2 1 3 3 
5  N. Dak.  9 11 - - - - - - - 
6  S. Dak. 47 61 - - - - - - -