Я не могу понять, почему seq выдает странный вывод внутри функции, а не снаружи. Если min равно нулю, цикл ifelse работает правильно, но если нет, то я не понимаю, как будет выглядеть результат разрывов -2.
lf2c_heat = function(values, min=NULL, max=NULL) {
breaks = ifelse(is.null(min), NA, seq(min, max, length.out=10))
print(length(breaks))
print(breaks)
}
lf2c_heat(values)
[1] 1
[1] NA
lf2c_heat(values, -2, 2)
[1] 1
[1] -2
lf2c_heat(hi_base_grid, min=-2, max=2)
[1] 1
[1] -2
seq(-2,2, length.out=10)
[1] -2.0000000 -1.5555556 -1.1111111 -0.6666667 -0.2222222 0.2222222
[7] 0.6666667 1.1111111 1.5555556 2.0000000