[解決済み] Rで "no lines available in input "というエラーを修正する方法は？

質問内容

何百ものリンクからデータを読み取る必要があるのですが、その中にデータが含まれていないリンクがあり、そのため、ここにあるコードのようになります。

urls <-paste0("http://somelink.php?station=",station, "&start=", Year, "01-01&etc")
myData <- lapply(urls, read.table, header = TRUE, sep = '|')

というエラーが表示され、"try"を使ってみましたが、同じエラーでした。

どうすればいいですか？

以下は2つの可能な解決策です（あなたの例は再現性がないため未検証です）。

使用方法 try :

myData <- lapply(urls, function(x) {
  tmp <- try(read.table(x, header = TRUE, sep = '|'))
  if (!inherits(tmp, 'try-error')) tmp
})

使用方法 tryCatch :

myData <- lapply(urls, function(x) {
  tryCatch(read.table(x, header = TRUE, sep = '|'), error=function(e) NULL)
})