Использование результата одной функции R в другой функции R

Question

Я очень плохо знаком с R и программированием в целом, и я задаю этот вопрос как часть программы на получение степени. Не волнуйтесь, наш профессор сказал, что мы можем использовать StackOverflow. Итак, вот мой вопрос: наше первое требование - создать функцию, которая возвращает TRUE или FALSE на основе проходной оценки 70. Вот мой код для этого:

passGrade <- function(x) {
 if(x>=70) {
  return('TRUE')
 }
 return('FALSE')
}

ВтороеТребуется использовать результаты этой функции и написать новую функцию, которая будет печатать «Поздравляю» TRUE и «Попробуй!»если FALSE. Кажется, мне нужно сохранить результаты первого набора кода в виде переменной, но когда я это делаю, это не правильно читается во втором наборе кода. Вот моя неудачная попытка

passGrade <- function(x) {
 if(x>=70) {
  x <- return('TRUE')
 }
 x <- return('FALSE')
}

Message <- function(x) {
 if(x == 'TRUE') {
  return("Congrats")
 }
 return("Try Harder!")
} 

Я уверен, что есть супер простое решение, но мне не повезло.

Answer 1

Ниже приведено простое решение, вы можете напрямую вернуть TRUE или FALSE в зависимости от условия и затем передать его в функцию Message, чтобы распечатать требуемый вывод, как показано ниже:

passGrade <- function(x) {
  if(x>=70) {
    return(TRUE)
  }
  return(FALSE)
}

Message <- function(x) {
  if(x == TRUE) {
    return("Congrats")
  }
  return("Try Harder!")
} 

Message(passGrade(60))
Message(passGrade(80))

Вывод:

[1] "Congrats"
[1] "Try Harder!"