[解決済み] Rでtrycatchの書き方
質問
を書きたいのですが。
trycatch
ウェブからのダウンロードのエラーに対処するためのコードです。
url <- c(
"http://stat.ethz.ch/R-manual/R-devel/library/base/html/connections.html",
"http://en.wikipedia.org/wiki/Xz")
y <- mapply(readLines, con=url)
この2つの文は正常に実行されます。以下では、存在しないウェブアドレスを作成しています。
url <- c("xxxxx", "http://en.wikipedia.org/wiki/Xz")
url[1]
が存在しない。どのように
trycatch
というようにループ(関数)させます。
- URLが間違っている場合、次のように出力されます: "web URL is wrong, can't get".
- URLが間違っているとき、コードは停止せず、URLのリストの終わりまでダウンロードを続けますか?
解決方法は?
それでは、Rの世界へようこそ;-)
どうぞ
コードの設定
urls <- c(
"http://stat.ethz.ch/R-manual/R-devel/library/base/html/connections.html",
"http://en.wikipedia.org/wiki/Xz",
"xxxxx"
)
readUrl <- function(url) {
out <- tryCatch(
{
# Just to highlight: if you want to use more than one
# R expression in the "try" part then you'll have to
# use curly brackets.
# 'tryCatch()' will return the last evaluated expression
# in case the "try" part was completed successfully
message("This is the 'try' part")
readLines(con=url, warn=FALSE)
# The return value of `readLines()` is the actual value
# that will be returned in case there is no condition
# (e.g. warning or error).
# You don't need to state the return value via `return()` as code
# in the "try" part is not wrapped inside a function (unlike that
# for the condition handlers for warnings and error below)
},
error=function(cond) {
message(paste("URL does not seem to exist:", url))
message("Here's the original error message:")
message(cond)
# Choose a return value in case of error
return(NA)
},
warning=function(cond) {
message(paste("URL caused a warning:", url))
message("Here's the original warning message:")
message(cond)
# Choose a return value in case of warning
return(NULL)
},
finally={
# NOTE:
# Here goes everything that should be executed at the end,
# regardless of success or error.
# If you want more than one expression to be executed, then you
# need to wrap them in curly brackets ({...}); otherwise you could
# just have written 'finally=<expression>'
message(paste("Processed URL:", url))
message("Some other message at the end")
}
)
return(out)
}
コードの適用
> y <- lapply(urls, readUrl)
Processed URL: http://stat.ethz.ch/R-manual/R-devel/library/base/html/connections.html
Some other message at the end
Processed URL: http://en.wikipedia.org/wiki/Xz
Some other message at the end
URL does not seem to exist: xxxxx
Here's the original error message:
cannot open the connection
Processed URL: xxxxx
Some other message at the end
Warning message:
In file(con, "r") : cannot open file 'xxxxx': No such file or directory
出力の調査
> head(y[[1]])
[1] "<!DOCTYPE html PUBLIC \"-//W3C//DTD HTML 4.01 Transitional//EN\">"
[2] "<html><head><title>R: Functions to Manipulate Connections</title>"
[3] "<meta http-equiv=\"Content-Type\" content=\"text/html; charset=utf-8\">"
[4] "<link rel=\"stylesheet\" type=\"text/css\" href=\"R.css\">"
[5] "</head><body>"
[6] ""
> length(y)
[1] 3
> y[[3]]
[1] NA
補足説明
トライキャッチ
tryCatch
の実行に関連する値を返します。
expr
ただし、エラーや警告が発生した場合を除く。この場合、特定の戻り値 (
return(NA)
を指定することで、それぞれのハンドラ関数 ( 引数
error
と
warning
で
?tryCatch
). これらはすでに存在する関数でもかまいませんが、その関数を
tryCatch()
(上でやったように)。
ハンドラ関数の特定の戻り値を選択することの意味するところ
と指定したように
NA
はエラーの場合に返されるべきもので、3番目の要素は
y
は
NA
. もし
NULL
を返り値とする場合、その長さは
y
は、単に
2
ではなく
3
として
lapply()
は単に無視するだけです。
NULL
. また、もしあなたが
明示的
の戻り値は
return()
の場合、ハンドラ関数は
NULL
(すなわち、エラーまたは警告状態の場合)。
警告メッセージ
として
warn=FALSE
は効果がないようです。警告を抑制する別の方法 (この場合はあまり意味がありません) は、次のようなものです。
suppressWarnings(readLines(con=url))
ではなく
readLines(con=url, warn=FALSE)
複数の表現
なお、複数の式をquot;実式部"に配置することも可能です(引数
expr
の
tryCatch()
で説明したように)中括弧で囲むと、より効果的です。
finally
の部分)。
関連
-
[解決済み] Rを再起動せずにパッケージをアンロードする方法
-
[解決済み] Rの再現性のある優れた例題の作り方
-
[解決済み] JUnit 4のテストで、ある例外が投げられたことをどのように断言しますか?
-
[解決済み] データフレームを結合(マージ)する方法(内側、外側、左側、右側)
-
[解決済み] 変数が存在するかどうかを確認するにはどうすればよいですか?
-
[解決済み] すべての例外をキャッチする `try`/`except` ブロックはどのように書けばよいですか?
-
[解決済み] 情報を損なわずに因数を整数値に変換するには?
-
[解決済み] 関数のソースコードを見るにはどうしたらいいですか?
-
[解決済み】ネストされたディレクトリを安全に作成するには?
-
[解決済み】プログラムを停止/終了させることなく、完全な例外トレースバックをキャッチして表示する方法は?
最新
-
nginxです。[emerg] 0.0.0.0:80 への bind() に失敗しました (98: アドレスは既に使用中です)
-
htmlページでギリシャ文字を使うには
-
ピュアhtml+cssでの要素読み込み効果
-
純粋なhtml + cssで五輪を実現するサンプルコード
-
ナビゲーションバー・ドロップダウンメニューのHTML+CSSサンプルコード
-
タイピング効果を実現するピュアhtml+css
-
htmlの選択ボックスのプレースホルダー作成に関する質問
-
html css3 伸縮しない 画像表示効果
-
トップナビゲーションバーメニュー作成用HTML+CSS
-
html+css 実装 サイバーパンク風ボタン