library(XML)
library(reshape2)

   url = paste0('http://w...content-available-to-author-only...v.tw/V7/marine/sea_condition/cht/tables/COMC08.html')
   data_raw = htmlParse(url)
   
   nodes = getNodeSet(data_raw, "//body/center/table//tr")
   data_tmp = sapply(nodes,xmlValue)
   
   # 清除換行碼
   data_tmp = gsub("\r\n", replacement="", data_tmp)
   
   data_tmp = strsplit(data_tmp,split=" ", fixed=T)
   data_tmp = data.frame(data_tmp[3:722], row.names=NULL)
   
   data = data_tmp[c(1,6,seq(14,62,by=4)),]
   row.names(data) = c("Date","Time","WaveH","WaveDir", "WavePer","Windms","WindBf",
                       "WindDir","Gust","GustBf","SST","Temp","Press","CurrDir",
                       "CurrSpd")
   data = data.frame(t(data), stringsAsFactors = FALSE, row.names=NULL)