Я успешно собрал таблицу с этой веб-страницы , используя приведенный ниже код rvest:
march19 <- read_html("http://mcsafetyfeed.org/incidents.php?date=2019-03-19")
march19_df <- march19 %>%
html_nodes("table") %>%
html_table(header = TRUE)
Если у вас есть 2 секунды, запустите этот код дляИзвлечь стол (march19_df).Вместо того, чтобы публиковать dput таблицы, которая составляет около 1 миллиона строк, я бы предпочел сэкономить глаза читателя
Полученная таблица представляет собой список из 1 элемента, который включает таблицу в качестве фрейма данных,Я хотел бы извлечь этот элемент, и попробовал это безрезультатно:
march19_df %>% map(1)
Это просто дает мне все даты, тогда как я хочу извлечь кадр данных изсписок.