原網址：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)
有些資料原本在右邊，但爬出來後出現在左邊