>source

R에서 텍스트를 가져오는 URL이 많이 있습니다. 이 code를 사용합니다.

setNames(lapply(1:1000, function(x) gettxt(get(paste0("url", x)))), paste0("url", 1:1000, "_txt")) %>%
  list2env(envir= globalenv())

하지만 일부 URL을 가져올 수 없고 다음 오류가 표시됩니다.

파일 오류(con, "r"): 연결을 열 수 없습니다. 경고 메시지: In file(con, "r"): InternetOpenUrl 실패: 'A 서버에 연결할 수 없습니다'

따라서 내 code가 실행되지 않고 어떤 URL에서도 텍스트를 가져오지 않습니다. 잘못된 URL을 인식하고 다른 URL로 건너뛰어 올바른 URL을 가져오려면 어떻게 해야 합니까?

  • 답변 # 1

    가능한 한 가지 방법 외에시도 캐치@tester가 언급한푸르르-패키지:

    library(purrr)
    # declare function
    my_gettxt <-function(x) {
        gettxt(get(paste0("url", x)))
    }
    # make function error prone by defining the otherwise value (could be empty df with column defintion, etc.) used as output if function fails
    my_gettxt <-purrr::possibly(my_gettxt , otherwise= NA)
    # use map from purrr instead of apply function
    my_data <-purrr::map(1:1000, ~my_gettxt(.x))
    

  • 이전 android : twilio 음성 통화 및 통화 진행 시간에 대한 상태 콜백 받기
  • 다음 웹 사이트에서 공개적으로 액세스할 수 있는 모든 파일을 볼 수 있습니까?