purrr의 함수형 프로그래밍 도구

purrr로 배우는 중급 함수형 프로그래밍

Colin Fay

Data Scientist & R Hacker at ThinkR

고차 함수

고차 함수의 특징:

하나 이상의 함수를 인수로 받음
함수를 반환함

nop_na <- function(fun){
  function(...){
    fun(..., na.rm = TRUE)
  }
}

sd_no_na <- nop_na(sd)
sd_no_na( c(NA, 1, 2, NA) )

0.7071068

고차 함수의 세 가지 유형

함수형 (Functionals)
함수 팩토리 (Function factories)
함수 연산자 (Function operators)

R의 고차 함수 세 가지 유형

Advanced R, Functional Programming

purrr의 부사형 함수

오류 및 경고 처리:

possibly()
safely()

library(purrr)
safe_mean <- safely(mean)
class(safe_mean)

"function"

safely()로 오류 처리하기

safely()는 다음을 반환하는 함수를 생성합니다:

$result
$error

safe_log <- safely(log)
safe_log("a")
$result

NULL

$error

<simpleError in log(x = x, base = base): non-numeric argument to mathematical function>

map( list(2, "a"), log )

Error in log(x = x, base = base) : non-numeric argument to mathematical function

map( list(2, "a"), safely(log) )

[[1]]
[[1]]$result
[1] 0.6931472

[[1]]$error
NULL

[[2]]
[[2]]$result
NULL

[[2]]$error
<simpleError in log(x = x, base = base):non-numeric argument to mathematical function>

`safely()` 결과에서 요소 추출하기

map() & "result" 또는 "error"

safe_log <- safely(log)

map( list("a", 2),  safe_log) %>% 
  map("result")

[[1]]
NULL

[[2]]
[1] 0.6931472

safe_log <- safely(log)

map( list("a", 2), safe_log ) %>% 
  map("error")

[[1]]
<simpleError in log(x = x, 
base = base): non-numeric argument 
to mathematical function>

[[2]]
NULL

연습해 봅시다!

purrr로 배우는 중급 함수형 프로그래밍