首先在工作目录中新建code文件夹并创建prepare.R以创建工作环境.
# !...main----
shelf(
vctrs, shiny, RCurl, XML, stringr,
dplyr, rvest, openxlsx, RSelenium, rvest
)...paper_info[, 2] <- trans_journal_names(paper_info[, 2])
journal_names % unique()
自动导航到所需要的网页并使用搜索框进行搜索...class", "hostUnit"),
function(x) {
x$getElementText()[[1]]
}
)
利用所有搜集到的信息输出成...# 将列表名和值拆分为列表的名称和值,并用setNames()给新列表命名
journalbaseinfo_list <- setNames(
lapply(hostunit_list