Это работает. Ифелсе, казалось, легче для этого. Есть ли причина, по которой вы хотели получить функцию?
temp1 <- .001
ifelse(temp1 >= 0.1 , round(temp1, digits = 0), "///")
temp1 <- 1.2
ifelse(temp1 >= 0.1 , round(temp1, digits = 0), "///")
В качестве альтернативы вы можете использовать циклы if и else (как вы делаете)
if(temp1 >= 0.1) {
round(temp1, digits = 0)
}else{
"///"
}