Использование magrittr и который

Question

Я хочу переписать следующий код с трубами из magrittr:

max(diff(which(diff(runif(50)) > 0))) 

Мой простой подход был бы:

library(magrittr) 
runif(50) %>% diff > 0 %>% which %>% diff %>% max 

Но это не удается из-за (первого) который:

runif(50) %>% diff > 0 %>% which 

Ошибка, в котором (.): ар gument to 'which' не является логическим

Я не уверен, почему возникает эта ошибка, и почему трубопроводы, которые, похоже, отличаются от трубопроводов к другим функциям, поскольку вывод «diff> 0» является логическим вектором.

Замечание, что бы там быть способом трубы для сравнения, грубо говоря

runif(50) %>% diff %>% > 0 

Спасибо за ваши советы!

Answer 1

Try:

runif(50) %>% diff %>% `>`(0) %>% which %>% diff %>% max 

Edit: Если, вероятно, указывают на то, что те, обратные кавычки не кавычки.

Answer 2

Я считаю, что ваша проблематичной строка обрабатывается как эквивалент:

(runif(50) %>% diff) > (0 %>% which %>% diff %>% max) 

возвращает ту же ошибку.

Они с другой стороны, прекрасно работают в дополнение к тому, что уже было предложено:

runif(50) %>% {diff(.) > 0} %>% which %>% diff %>% max 
(runif(50) %>% diff > 0) %>% which %>% diff %>% max