2017-10-23 10 views
0

누구든지 오류를 해결할 수 있도록 도와주십시오. IF 문을 체크하고 싶다면, Null이 없다면 값을 삽입하십시오. 좋은 것 (my_get() '기능 일부 데이터`예 포함)NULL 오류에 대한 else 문 오류

while (i < 33) 
{ 
library(jsonlite) 
library(httr) 
get_reply2 <- my_get(staypoints$Stayplon[i],staypoints$staypLat[i], 2) 
get_replyFF2 <- append(get_replyFF2, get_reply2$value$id) 
get_replyFG2 <- append(get_replyFG2, get_reply2$value$title) 
    if (get_replyFF2[i] != 0) 
    { 
    LONGG <- append(LONGG, staypoints$Stayplon[i]) 
    LATT <- append(LATT, staypoints$Stayplon[i]) 
    } 

    i <- i + 1 
}; 

Error: Error in if (get_replyFF2[i] != 0) { : 
missing value where TRUE/FALSE needed 
+0

재현 예! – Adela

+1

그렇게 성장하는 벡터는 권장되지 않습니다. 루프 안에서'library()'호출은 좋은 생각이 아닙니다. 조건부가 필요하다는 것을 알고 있다면, 그것을두기 위해 어디에 노력 했습니까? R에는'is.null()'함수가 있고'length (thing) == 0'에 대해서도 테스트 할 수 있습니다. – hrbrmstr

+0

도움 주셔서 감사합니다 :) – Saara

답변

0
while (i < 33) 
{ 
library(jsonlite) 
library(httr) 
get_reply2 <- my_get(staypoints$Stayplon[i],staypoints$staypLat[i], 2) 
get_replyFF2 <- append(get_replyFF2, get_reply2$value$id) 
get_replyFG2 <- append(get_replyFG2, get_reply2$value$title) 
if (length(get_reply2) != 0) 
    { 
    LONGG <- append(LONGG, staypoints$Stayplon[i]) 
    LATT <- append(LATT, staypoints$staypLat[i]) 
    } 

    i <- i + 1 
    };