Eine sehr einfache if ... else-Anweisung erzeugt unerwartete Ergebnisse

Question

Ich erstellte eine sehr einfache if ... else-Anweisung in RStudio und ich stieß auf das folgende Problem. Ich wäre sehr dankbar, wenn Sie einige Zeit, um einen Blick auf diese haben, nehmen könnten: -

(A) Codes: -

testing <- function(var1) { 
    if(var1 == "heart attack") { 
     col_no <- 11 
     col_no 
    } else if(var1 == "heart failure") { 
     col_no <- 17 
     col_no 
    } else if(var1 == "pneumonia") { 
     col_no <- 23 
     col_no 
    } else {"error"} 
} 

(B) Ausgabe: -

testing("heart attack") 
# [1] 11 

col_no 
# Error: object 'col_no' not found 

testing("heart failure") 
# [1] 17 

col_no 
# Error: object 'col_no' not found 

testing("pneumonia") 
# [1] 23 

col_no 
# Error: object 'col_no' not found 

Als ich in "testing (" heart failure ")" eingegeben, habe ich erwartet, dass der Wert von col_no 17 statt eines Fehlers ist.

In ähnlicher Weise, als ich "testing (" pneumonia ") eintippte, erwartete ich den Wert von col_no 23 statt eines Fehlers zu sein.

Bitte helfen!

Answer 1

Da Sie eine Funktion (Testen) definiert haben, ist die Variable col_no nur innerhalb dieser Funktion und nicht in der globalen Umgebung verfügbar. Versuchen Sie stattdessen, dann wird die Variable auch in der globalen Umgebung definiert:

testing <- function(var1) { 
if(var1 == "heart attack") { 
    col_no <<- 11 
    col_no 
} else if(var1 == "heart failure") { 
    col_no <<- 17 
    col_no 
} else if(var1 == "pneumonia") { 
    col_no <<- 23 
    col_no 
} else {"error"} 
} 

Answer 2

Hier ist eine saubere Syntax switch:

testing <- function(var1){ 
    switch(var1, 
     "heart attack" = 11, 
     "heart failure"= 17, 
     "pneumonia" = 23, 
     "error") 
} 

Aufruf die Funktion:

col_no <- testing("heart attack") 
col_no 
#[1] 11 
col_no <- testing("heart failure") 
col_no 
#[1] 17 
col_no <- testing("pneumonia") 
col_no 
#[1] 23 
col_no <- testing("flue") 
col_no 
#[1] "error"