如果条件，R中的奇怪错误

Question

R新手在这里。任何人都可以解释这段代码中的错误吗？

rankall <- function(outcome, num = "best") {
  data = read.csv("outcome-of-care-measures.csv", colClasses = "character")
  hospital = read.csv("hospital-data.csv", colClasses = "character")

  data.hospital = merge(data, hospital, by="Provider.Number")

  valid_outcomes = c("heart attack"=11, "heart failure"=17, "pneumonia"=23)
  if (!tolower(outcome) %in% names(valid_outcomes))
    stop("invalid outcome")

  state_wise = split(data.hospital, data.hospital$State.x)
  ranked = lapply(state_wise, 
         function(elt) {
            od = order(elt[,valid_outcomes[tolower(outcome)]], elt$Hospital.Name.x)
            elt = elt[od, ]
            deaths = elt[, valid_outcomes[tolower(outcome)]]
            last = match("Not Available", deaths) - 1
            if (num=="best") {
              deaths[1]
            } else if (num =="worst") {
              deaths[last]
            } else if (num >= 1 && num <= last) {
              deaths[num]
            } else {
              NA
            }
  })

  df = data.frame(unlist(ranked), names(state_wise))
  names(df) = c("hospital", "state")
  df
}

函数调用：

rankall("heart attack", 3)

错误：

  

if（num＆gt; = 1＆amp;＆amp; num＆lt; = last）{：

时出错      

缺少需要TRUE / FALSE的值