R para Data Science

328 | Capítulo 17: Iteração com purrr

• O sapply() base é um wrapper em torno de lapply() que simplifica automa-

ticamente a saída. Isso é útil para trabalho interativo, mas é problemático em

uma função porque você nunca sabe que tipo de saída obterá:

x1 <- list(

c( 0.27, 0.37, 0.57, 0.91, 0.20 ),

c( 0.90, 0.94, 0.66, 0.63, 0.06 ),

c( 0.21, 0.18, 0.69, 0.38, 0.77 )

)

x2

<- list(

c( 0.50, 0.72, 0.99, 0.38, 0.78 ),

c( 0.93, 0.21, 0.65, 0.13, 0.27 ),

c( 0.39, 0.01, 0.38, 0.87, 0.34 )

)

threshold

<- function( x, cutoff = 0.8 ) x[ x > cutoff]

x1

%>% sapply( threshold ) %>% str()

#> List of

3

#> $ : num 0.91

#> $ : ...