library(rvest)
library(installr)
# carefully check the url for 3 hour prediction
## image url: https://imgur.com/cYxPYxE https://imgur.com/4VrJzoD
a <- read_html("https://www.cwb.gov.tw/V7/forecast/town368/3Hr/6300200.htm")
predict_3hr_table <- html_table(a)[[1]]