데이터를 검색 : 나는 웹 API에서 R에서 데이터를 가져 오기 위해 노력하고있어

Question

400 잘못된 요청 (infermedia, 구체적으로)

내 경우에는 GET 요청이 처리됩니다 성공적으로 그러나 POST에 문제가 있습니다.

요청에 처리 된 데이터가 포함되어 반환됩니다. 이 두 가지 모두 json 형식입니다. API 문서에서

예제 코드는 다음과 같습니다

curl -v -X GET "https://api.infermedica.com/v2/symptoms" 

컬을 사용하여 R이를 실행하기 위해, 내가 사용

h <- new_handle() 
    handle_setheaders(h, 'app_id' = "id", 'app_key' = "key", 'Accept' = "application/json") 
    curl_fetch_memory("https://api.infermedica.com/v2/symptoms", handle = h) 

이 머리글 만 보내 잘했다. 그러나, POST 본문 복잡한 요청에 대해, 내가 오프 HTTR을 사용하여 더 나은 줄 알았는데, 내가 HTTR을 사용하여 실행 단지 컬

같은 쿼리를 사용하여 본문 데이터를 보낼 수있는 방법을 찾을 수 없습니다 것은 같이 보인다 :

GET(url = "https://api.infermedica.com/v2/symptoms", verbose(),add_headers(app_id = "id", app_key = "key", 'Accept' = "application/json")) 

이 또한 작동합니다. 당신이 알 경우

bod <- list(sex = jsonlite::unbox('male'), age = jsonlite::unbox('26'), evidence = data.frame(id = "s_21", choice_id = 'present')) 

:

curl -v -X POST -H "Content-Type:application/json" "https://api.infermedica.com/v1/diagnosis" -d '{"sex": "male", "age": 29, "evidence": [ { "id": "s_21", "choice_id": "present" } ] }' 

이있는, 나는 이런 내 JSON을 만든 : 그럼 JSON을 포함하는 데이터에 대한 설명서 코드처럼 보이는

POST 요청을 제공 증거 정보가 데이터 프레임으로 생성됩니다. 그 이유는 json으로 변경하면 문서의 json과 매우 흡사합니다.

POST(url = "https://api.infermedica.com/v1/diagnosis", body = bod , 
     encode = 'json', verbose(), 
    add_headers(app_id = "id", app_key = "key", 'Content-Type:' = "application/json")) 

이 요청에 대한 자세한 정보는 다음과 같습니다 :

• POST/V1/진단 HTTP/1.1

  • 호스트 : api.infermedica.com
  • 여기 내 말은 무엇 사용자 에이전트 : libcurl/7.47.0 r-curl/1.2 httr/1.2.1
  • Accept-Encoding : gzip, deflate
  • 수락 : 응용 프로그램/JSON, 텍스트/XML, 응용 프로그램/XML을, /
  • 콘텐츠 형식 : 응용 프로그램/JSON
  • APP_ID : ID
  • app_key : 키
  • 콘텐츠 형식 : 응용 프로그램/JSON
  • 콘텐츠 길이 : 74

  • { "섹스": "남성", "나이": "26", "증거": [{ "ID": "s_21", "choice_id" " present "}]}

  • HTTP/11 400 잘못된 요청

  • 날짜 : 2016년 (화) 9월 20일 그리니치 표준시 13시 26분 46초
  • 콘텐츠 형식 : 응용 프로그램/JSON; 문자셋 = UTF-8
  • 콘텐츠 길이 : 25
  • 연결 : 연결 유지
  • X-Content-Type을-옵션 :
  • 서버 SAMEORIGIN : Infermedica
  • 액세스 제어 - 허용 - 원산지 : *
  • X-프레임 - 옵션 NOSNIFF
  • 액세스 제어 - 허용 - 자격 : 사실
  • 액세스 제어 - 허용 - 방법 : GET, POST, OPTIONS
  • 액세스 제어 - 허용 - 헤더 : DNT, X-MX-ReqToken, 연결 유지,

    {: - 수정 된 경우 --이후 사용자 에이전트, X-요청-으로는, 캐시 제어, 콘텐츠 유형, APP_ID는 app_key

은 몸의 데이터 라인을 참조 "섹스": "남성", "나이": "26", "증거": [{ ""id ":"s_21 ","choice_id ":"현재 "}]}

정확하게 api가 어떻게 표시해야하는지 지시합니다.

하지만 잘못된 요청 오류가 발생합니다. 본문에 중첩 목록을 사용하려고 시도했지만 아무런 효과가 없었습니다. 문서 페이지에서 json 문자열을 복사하여 붙여 넣기하여 그대로 전달하면 동일한 오류가 발생합니다. 내가 어떤 도움을 크게

Answer 1

을 이해할 수있을 것이다 서버

로 JSON 데이터를 전달 해요 방식에 뭔가 문제가 있다는 뜻하는 물론, 터미널에서 curl 명령을 실행할 때 요청이 처리됩니다 않습니다 이 얻을 도움이 될 수 있습니다 당신은 시작 :

library(httr) 
library(jsonlite) 
library(dplyr) 

im_info <- function() { 

    res <- GET("https://api.infermedica.com/v2/info", 
      add_headers(app_id=Sys.getenv("INFERMEDICA_APP_ID"), 
         app_key=Sys.getenv("INFERMEDICA_APP_KEY"))) 

    stop_for_status(res) 

    content(res, as="text", encoding="UTF-8") %>% 
    fromJSON(flatten=TRUE) 

} 


im_list_symptoms <- function() { 

    res <- GET("https://api.infermedica.com/v2/symptoms", 
      add_headers(app_id=Sys.getenv("INFERMEDICA_APP_ID"), 
         app_key=Sys.getenv("INFERMEDICA_APP_KEY"))) 

    stop_for_status(res) 

    content(res, as="text", encoding="UTF-8") %>% 
    fromJSON(flatten=TRUE) 

} 

im_get_symptom <- function(symptom_id="s_277") { 

    res <- GET(sprintf("https://api.infermedica.com/v2/symptoms/%s", symptom_id), 
      add_headers(app_id=Sys.getenv("INFERMEDICA_APP_ID"), 
         app_key=Sys.getenv("INFERMEDICA_APP_KEY"))) 

    stop_for_status(res) 

    content(res, as="text", encoding="UTF-8") %>% 
    fromJSON(flatten=TRUE) 

} 


im_start_diagnosis <- function() { 
    return(list(age=NULL, sex=NULL)) 
} 

im_add_patient_info <- function(diag_obj, age, sex) { 
    diag_obj$age <- unbox(as.numeric(age)) 
    diag_obj$sex <- unbox(sex) 
    diag_obj 
} 

im_add_evidence <- function(diag_obj, id, choice=c('present', 'absent', 'unknown')) { 

    choice <- match.arg(choice, c('present', 'absent', 'unknown')) 

    df <- data_frame(id=id, choice_id=choice) 

    if (length(diag_obj$evidence) == 0) { 
    diag_obj$evidence <- df 
    } else { 
    bind_rows(diag_obj$evidence, df) 
    } 

    diag_obj 

} 

im_get_diagnosis <- function(diag_obj) { 

    res <- POST("https://api.infermedica.com/v2/diagnosis", 
       add_headers(app_id=Sys.getenv("INFERMEDICA_APP_ID"), 
          app_key=Sys.getenv("INFERMEDICA_APP_KEY")), 
       body=diag_obj, 
       encode="json", 
       verbose()) 

    stop_for_status(res) 

    content(res, as="text", encoding="UTF-8") %>% 
    fromJSON(flatten=TRUE) 

} 

im_start_diagnosis() %>% 
    im_add_patient_info(29, "male") %>% 
    im_add_evidence("s_21", "present") %>% 
    im_get_diagnosis() 

이제 이것에 대한 알파 패키지를 사용할 수 있습니다 infermedica