אזהרות ו-finally

חלק מהיחידה לוגיקה וזרימת תוכנית במסלול ה-R של Coddy. שיעור 54 מתוך 64.

אזהרה מדווחת על בעיה בלי לעצור: הפונקציה מחזירה ערך, ו-R מדפיסה את האזהרה בסוף. as.numeric() מזהירה על טקסט שאינו מספר ומחזירה NA:

x <- as.numeric("abc")
print(x)

פלט:

[1] NA
Warning message:
NAs introduced by coercion

כמו שגיאות, גם אזהרות נשלחות לזרם השגיאות, ולכן ב-Coddy הן גורמות לכישלון של בדיקה. suppressWarnings() משתיקה אותן כשבודקים את התוצאה בעצמכם, ו-tryCatch(..., warning = ) הופכת אזהרה לערך:

x <- suppressWarnings(as.numeric("abc"))
print(is.na(x))
r <- tryCatch(as.numeric("abc"), warning = function(w) paste("warned:", conditionMessage(w)))
print(r)

פלט:

[1] TRUE
[1] "warned: NAs introduced by coercion"

warning("message") מעלה אזהרה מתוך הקוד שלך. מטפל עבורה פועל באותו אופן כמו מטפל בשגיאה:

ratio <- function(a, b) {
  if (b == 0) warning("b is zero, returning Inf")
  a / b
}
r <- tryCatch(ratio(1, 0), warning = function(w) conditionMessage(w))
print(r)

פלט:

[1] "b is zero, returning Inf"

finally = ... רץ אחרי הביטוי וכל מטפל בשגיאות, בין אם אירעה שגיאה ובין אם לא. השתמשו בו לפעולות שחייבות תמיד להתבצע, כמו הודעת סגירה:

load <- function(x) {
  tryCatch({
    if (x < 0) stop("negative")
    x * 10
  }, error = function(e) NA,
  finally = cat("finished", x, "\n"))
}
print(load(2))
print(load(-1))

פלט:

finished 2 
[1] 20
finished -1 
[1] NA

אתגר

קל

השלימו את to_numbers(texts). המר כל טקסט למספר. ערכים שלא ניתן להמיר יהפכו ל־NA בלי שתודפס אזהרה. החזירו שתי שורות: Numbers: ואחריו המספרים שהומרו, כשהם מופרדים ברווחים (כולל ערכי NA), ו־Invalid: ואחריו מספר הערכים שההמרה שלהם נכשלה.

הקוד שסופק קורא את הטקסטים כשורה המופרדת בפסיקים ומדפיס כל שורה שהוחזרה.

נסו בעצמכם

to_numbers <- function(texts) {
  # כתבו כאן את הקוד שלכם
  c("Numbers: ", "Invalid: 0")
}

# קוד הקלט והפלט שסופק: השאירו אותו כפי שהוא
input <- suppressWarnings(readLines(file("stdin")))
cat(to_numbers(strsplit(input[1], ",")[[1]]), sep = "\n")