Ну тогда: добро пожаловать в мир 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 insided 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
должно быть возвращено в случае ошибки, третий элемент в y
является NA
. Если бы мы выбрали , NULL
чтобы быть возвращаемое значение, длина y
бы просто был 2
вместо , 3
как lapply()
просто «игнорировать» возвращаемые значения, которые NULL
. Также обратите внимание, что если вы не укажете явное возвращаемое значение через return()
, функции-обработчики вернутся NULL
(т.е. в случае ошибки или условия предупреждения).
«Нежелательное» предупреждение
Как warn=FALSE
кажется, не имеет никакого эффекта, альтернативный способ подавления предупреждения (который в данном случае не представляет особого интереса) заключается в использовании
suppressWarnings(readLines(con=url))
вместо того
readLines(con=url, warn=FALSE)
Несколько выражений
Обратите внимание , что вы можете также поместить несколько выражений в «фактических выражениях части» (аргумент expr
о tryCatch()
) , если завернуть их в фигурных скобках (так же , как я иллюстрировал в finally
части).
paste
функциях заканчивается пробелом, почему бы не опустить пробел и символsep=""
?paste0
для этого!paste0()
находится в базе. Внутренне обаpaste()
иpaste0()
позвонитеdo_paste
в paste.c . Разница лишь в томpaste0()
, чтоsep
аргумент не передается .readLines(con=url, warn=FALSE)
это фактическая вещь, которая может пойти не так). Поэтому, если вы хотите добавить сообщение, вам нужно будет сохранить фактическое значение повторения в переменной:out <- readLines(con=url, warn=FALSE)
затемmessage("Everything worked")
следуетout
, чтобы сделать это последним фактически возвращаемымR использует функции для реализации блока try-catch:
Синтаксис выглядит примерно так:
В tryCatch () есть два «условия», которые могут быть обработаны: «предупреждения» и «ошибки». При написании каждого блока кода важно понимать состояние выполнения и область действия. @источник
источник
error-handler-code
наcat("web url is wrong, can't get")
tryCatch
имеет немного сложную синтаксическую структуру. Однако, как только мы поймем 4 части, которые составляют полный вызов tryCatch, как показано ниже, становится легко запомнить:expr : [ Обязательно ] R код (ы) для оценки
error : [ Необязательно ] Что должно работать, если при вычислении кодов в expr произошла ошибка
warning : [ Необязательно ] Что должно работать, если при вычислении кодов в expr возникло предупреждение
finally : [ Необязательно ] Что должно быть выполнено непосредственно перед завершением вызова tryCatch, независимо от того, успешно ли был выполнен expr, с ошибкой или с предупреждением
Таким образом, игрушечный пример для вычисления лога значения может выглядеть так:
Сейчас работает три дела:
Действительный случай
«Предупреждающий» случай
Случай "ошибки"
Я написал о некоторых полезных случаях использования, которые я использую регулярно. Узнайте больше здесь: https://rsangole.netlify.com/post/try-catch/
Надеюсь, это полезно.
источник
Вот простой пример :
Если вы также хотите записать «предупреждение», просто добавьте
warning=
похожие кerror=
части.источник
expr
детали, поскольку вместо одной есть две строки?Error: unexpected ')' in " )"
иError: unexpected ')' in " )"
. Добавление пары фигурных скобок решает проблему.Так как я потерял два дня своей жизни, пытаясь найти для tryCatch функцию irr, я решил поделиться своей мудростью (а чего не хватает). FYI - irr - актуальная функция от FinCal, в этом случае в некоторых случаях возникли ошибки на большом наборе данных.
Настройте tryCatch как часть функции. Например:
Чтобы ошибка (или предупреждение) сработала, вам нужно создать функцию. Я изначально для части ошибки только что написал
error = return(NULL)
и ВСЕ значения возвратились нуль.Не забудьте создать вспомогательный вывод (например, мой "out") и to
return(out)
.источник