fork download
copy 
  1. library(XML)
  2. library(reshape2)
  3.  
  4.    url = paste0('http://w...content-available-to-author-only...v.tw/V7/marine/sea_condition/cht/tables/COMC08.html')
  5.    data_raw = htmlParse(url)
  6.  
  7.    nodes = getNodeSet(data_raw, "//body/center/table//tr")
  8.    data_tmp = sapply(nodes,xmlValue)
  9.  
  10.    # 清除換行碼
  11.    data_tmp = gsub("\r\n", replacement="", data_tmp)
  12.  
  13.    data_tmp = strsplit(data_tmp,split=" ", fixed=T)
  14.    data_tmp = data.frame(data_tmp[3:722], row.names=NULL)
  15.  
  16.    data = data_tmp[c(1,6,seq(14,62,by=4)),]
  17.    row.names(data) = c("Date","Time","WaveH","WaveDir", "WavePer","Windms","WindBf",
  18.                        "WindDir","Gust","GustBf","SST","Temp","Press","CurrDir",
  19.                        "CurrSpd")
  20.    data = data.frame(t(data), stringsAsFactors = FALSE, row.names=NULL)
  21.  
  22.  
Runtime error #stdin #stdout #stderr 0.89s 25232KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
Standard output is empty
stderr
copy 
Error in library(reshape2) : there is no package called 'reshape2'
Execution halted
https://ideone.com/cBUJQa
language:
R (R 3.5.2)
created:
10 years ago
visibility:
secret

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!