原网址：http://www.mmh.org.tw/health/image/exam_services/exam_services.html
R语言程式：
library(XML)
URL =
paste0("http://www.mmh.org.tw/health/image/exam_services/exam_services.html")
Sys.sleep(runif(1,1,2))
doc<-htmlParse(URL,encoding="UTF-8")
tables<-readHTMLTable(doc,header=F,which = 2)
tables
dim(tables)
有些资料原本在右边，但爬出来后出现在左边