Który wariant najlepszy?

1

foo <- function(tmp) {
  x <- "opcja1"
  if(tmp == "a") {
    x <- "opcja2"
  } else if (tmp == "b") {
    x <- "opcja3"
  }
  x
}

2

foo <- function(tmp) {
  if(tmp == "a") {
    x <- "opcja2"
  } else if (tmp == "b") {
    x <- "opcja3"
  } else {
    x <- "opcja1"
  }
  x
}

3

foo <- function(tmp) {
  if(tmp == "a") {
    return ("opcja2")
  } else if (tmp == "b") {
    return("opcja3")
  }
  return("opcja1")
}

4

foo <- function(tmp) {
  ifelse(tmp == "a", "opcja1", ifelse(tmp == "b", "opcja2", "opcja3"))
}

5

foo <- function(tmp) {
  switch(tmp,
    "a" = "opcja1",
    "b" = "opcja2",
    "opcja3")
}

6

foo <- function(tmp) {
  foo2 <- function(tmp) {
    ifelse(tmp == "b", "opcja2", "opcja3")
  }
  foo1 <- function(tmp) {
    ifelse(tmp == "a", "opcja1", foo2(tmp))
  }
  foo1(tmp)
}

dobra nie chce mi się idę spać

Zapomniałeś o GOTO.