※ 引述《l111011 (Mr.Pickles)》之铭言：
: 我原本是要从 https://itouch.cycu.edu.tw/active_system/CourseQuerySystem/
: 取表格 , 但是 R 的读XML的函式貌似没办法读这种动态网页
: http://i.imgur.com/cmIYmjh.png
: 所以我改去尝试下载上图的连结
: 看了一下F12 , 要下载这个连结似乎要用HTTR中的POST
: 参考了 http://leoluyi.logdown.com/posts/406397-crawler-mops-2
: 的方法
: 但是
: http://i.imgur.com/sBuTzm9.png
: 这个连结直接把上一页资料塞在From data 给他转成xls
: 看起来要用httr下载此连结应该不行(要传上一页资料)
: 请问有什么方法
library(httr)
library(pipeR)
url <-
"https://itouch.cycu.edu.tw/active_system/CourseQuerySystem/GetCourses.jsp"
courseInfo <- POST(url, query = list(yearTerm = 1052)) %>>% content("text")
x <- strsplit(strsplit(courseInfo, "@@")[[1]], split = "|", fixed = TRUE)
do.call(rbind, x[-1])
结果图：
http://imgur.com/a/jZvHN
url是从开发者工具找到的，找到这个连结就可以全部抓下来了
( http://imgur.com/a/XyiMf )
然后给不同yearTerm就可得到不同学年的资料