提取列表的第一个元素，同时使用RVest抓取html表

Question

我已经使用下面的rvest代码从此webpage成功地收获了一张桌子：

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）。与其发布表格的数字（例如一百万行），不如说是吸引了读者的目光

结果表是1个元素的列表，其中包括该表作为数据框。我想提取此元素，并尝试了一下，但无济于事：

march19_df %>% map(1)

这只是给我所有日期，而我想从列表中提取数据框。