crawler with rvest

library(rvest)
library(httr)
library(stringi)
Sys.setlocale("LC_ALL", 'C') # for windows
webpage <- GET("http://app.tzuchi.com.tw/tzuchi/About_TP_Center/?ContentType=6&IdentityID=130")
dat <- webpage %>% content %>% html_nodes(xpath = "//table[@id='table15']") %>%
  html_table(fill = TRUE) %>% `[[`(1)
dat <- dat %>% as.matrix %>% stri_conv("UTF-8", "BIG5") # for windows