Почему я получаю ошибку в матрице, когда я пытаюсь очистить таблицу? - PullRequest
Новая
       9

Почему я получаю ошибку в матрице, когда я пытаюсь очистить таблицу?

0 голосов
/ 16 февраля 2020

Это пример моего кода. Проблема заключается во 2-й ссылке (для Cedar Realty Trust). 

library(rvest)
library(stringr)
library(plyr)
library(dplyr)
library(lubridate)
library(readr)
library(stringi)
library(tidyverse)
library(purrr)

urls <- list(c("CEDAR FAIR L P ", "https://www.sec.gov/Archives/edgar/data/811532/000081153219000037/exhibit212018subsidiaries.htm"),
             c("CEDAR REALTY TRUST, INC.    ", "https://www.sec.gov/Archives/edgar/data/761648/000156459020004590/cdr-ex211_8.htm"),
             c("Celanese Corp ", "https://www.sec.gov/Archives/edgar/data/1306830/000130683020000018/ex211-10k123119.htm"))

List.Of.Tabs <- map(urls, ~ {

  name <- .x[1]
  link <- .x[2]
  Sys.sleep(2)
  webpage <- read_html(link)
  tbls <- html_nodes(webpage, "table")
  tbls_ls <- html_table(tbls, fill = TRUE)
  pos1 <- possibly(function(tbls) bind_rows(tbls) %>% 
                     filter_all(any_vars(. %in% c("Singapore", "SGP"))) %>%
                     mutate(name = name) 
                   , otherwise = NA)

  pos1(tbls_ls)
})

Полученное сообщение об ошибке: 

Error in matrix(NA_character_, nrow = n, ncol = maxp) : 
  invalid 'ncol' value (too large or NA)
In addition: Warning messages:
1: In max(p) : no non-missing arguments to max; returning -Inf
2: In matrix(NA_character_, nrow = n, ncol = maxp) :
  NAs introduced by coercion to integer range

Как я могу изменить свой код, чтобы позаботиться об этом ошибка?

1 Ответ

1 голос
/ 16 февраля 2020

Вот способ сделать это с tryCatch. 

library(tidyverse)
library(rvest)

map(urls, ~ {

  name <- .x[1]
  link <- .x[2]
  Sys.sleep(2)
  tryCatch({
     temp <- link %>%
               read_html() %>%
               html_nodes("table") %>%
               html_table(fill = TRUE) 
      map_df(temp, ~filter_all(.x, any_vars(. %in% c("Singapore", "SGP")))) %>%
          mutate(name = name) 
      }, error = function(e) NA
     )
})


#[[1]]
#[1] X1   X2   name
#<0 rows> (or 0-length row.names)

#[[2]]
#[1] NA

#[[3]]
#                                             X1 X2        X3 X4           name
#1                            Celanese PTE. LTD. NA Singapore NA Celanese Corp 
#2  Celanese Singapore Acetyls Holding PTE. LTD. NA Singapore NA Celanese Corp 
#3 Celanese Singapore Chemical Holding PTE. LTD. NA Singapore NA Celanese Corp 
#4                  Celanese Singapore PTE. LTD. NA Singapore NA Celanese Corp 
#5              Celanese Singapore VAM PTE. LTD. NA Singapore NA Celanese Corp 
#6        Celanese Singapore Emulsions PTE. LTD. NA Singapore NA Celanese Corp

Хотя это выдает предупреждение, но работает без ошибок.

...