인프런 커뮤니티 질문&답변

k <- 1
content <- c()

for(k in 52:length(fin_url)){

if(class(try(b <- readLines(fin_url[k], encoding = "UTF-8"))) == "try-error"){

cont <- ""
content <- c(content,cont) } else{

aindex <- which(str_detect(b,"</figure>"))

bindex <- which(str_detect(b, "<div class=\"foot_view\" data-cloud-area=\"addition\">"))

b2 <- paste(b[aindex:bindex], collapse = " ")

cont <- str_trim(gsub("<.*?>","",b2)) content <- c(content,cont)

cat("\n",k) }

연속으로 진행되지 않고 잘리는 상황이 지속됩니다.

오류 무시가 작동을 하지 않는 이유를 모르겠습니다.

오타인지요?