可以用rvest包来做,就几个函数,另外稍微熟悉一点html和css就可以
下面的代码是获取类似"WO/2020/025997"(不知道这个叫什么)
library(rvest)
url <- "https://patentscope2.wipo.int/search/zh/result.jsf?currentNavigationRow=1&prevCurrentNavigationRow=2&query=&office=&sortOption=%E5%85%AC%E5%B8%83%E6%97%A5%E9%99%8D%E5%BA%8F&prevFilter=&maxRec=48599234&viewOption=All"
read_html(url)%>%
html_nodes(".notranslate.ps-patent-result--title--patent-number")%>%
html_text()