Fatal编程技术网
  • html/
  • Html 如何将web刮取的数字放入自动刷新时添加到数据框的数据框中

Html 如何将web刮取的数字放入自动刷新时添加到数据框的数据框中

html r dataframe web-scraping

Html 如何将web刮取的数字放入自动刷新时添加到数据框的数据框中,html,r,dataframe,web-scraping,Html,R,Dataframe,Web Scraping,我想创建一个数据帧，在每次运行脚本时更新它。我希望一列有数字，另一列有记录的日期。这是我到目前为止所拥有的 # Packages library(miniUI) library(shiny) library(shinyFiles) library(taskscheduleR) library(rvest) library(dplyr) library(magrittr) # Read in data team_trees <- read_html("https://teamtrees.o

我想创建一个数据帧，在每次运行脚本时更新它。我希望一列有数字，另一列有记录的日期。这是我到目前为止所拥有的

# Packages
library(miniUI)
library(shiny)
library(shinyFiles)
library(taskscheduleR)
library(rvest)
library(dplyr)
library(magrittr)

# Read in data
team_trees <- read_html("https://teamtrees.org/")

# Number of Trees
count <- team_trees %>% 
  html_nodes("#totalTrees") %>%
  html_attr("data-count")

total_trees <- count %>%
  as.numeric()
# Columns for data frame
day <- Sys.Date()

data <- data.frame(total_trees, day)
data

#包
图书馆（miniUI）
图书馆（闪亮）
图书馆（shinyFiles）
库（任务调度器）
图书馆（rvest）
图书馆（dplyr）
图书馆（magrittr）
#读入数据
团队树%
html_属性（“数据计数”）
树木总数%
as.numeric（）
#数据框的列

每天每次将数据写入磁盘对您有效吗


library(readr)

old_data <- read_csv("file/path/data.csv")

new_data <- old_data %>% 
  rbind(data.frame(total_trees, day))

write_csv(new_data, "file/path/data.csv")



库（readr）

旧数据我的第一个想法是EugeneChong建议的，保存到磁盘。但是，如果您不是在寻找这种类型的持久性，请执行以下操作：


#。。。
如果（！存在（“数据”））数据，您考虑将数据保存在哪里？选项：csv、json、feather、数据库、redis/nosql等。如果您不是在寻找永久的（即，新的R会话意味着新的开始），那么可能
If（exists（“dat”）{augment；}或者{create；}
。