deparse ()에 대한 빠른 대안

에 대한 반복 호출에 의존하는 패키지를 유지 관리합니다 deparse(control = c("keepNA", "keepInteger")). control항상 동일하며 표현이 다릅니다. deparse()와 동일한 옵션 세트를 반복적으로 해석하는 데 많은 시간을 소비하는 것 같습니다 .deparseOpts().

microbenchmark::microbenchmark(
    a = deparse(identity, control = c("keepNA", "keepInteger")),
    b = .deparseOpts(c("keepNA", "keepInteger"))
)
# Unit: microseconds
# expr min  lq  mean median  uq  max neval
#    a 7.2 7.4 8.020    7.5 7.6 55.1   100
#    b 3.0 3.2 3.387    3.4 3.5  6.0   100

일부 시스템에서는 중복 .deparseOpts()호출이 실제로 대부분의 런타임 deparse()( 화염 그래프 여기 )을 차지합니다 .

실제로 .deparseOpts()한 번만 호출 한 다음 숫자 코드를에 제공 deparse()하고 싶지만 .Internal()C 코드를 직접 호출 하거나 호출 하지 않으면 불가능한 것처럼 보입니다. 이 중 어느 것도 패키지 개발 관점에서 최적이 아닙니다.

deparse
# function (expr, width.cutoff = 60L, backtick = mode(expr) %in% 
#     c("call", "expression", "(", "function"), 
#     control = c("keepNA", "keepInteger", "niceNames", 
#         "showAttributes"), nlines = -1L) 
# .Internal(deparse(expr, width.cutoff, backtick, .deparseOpts(control), 
#     nlines))
# <bytecode: 0x0000000006ac27b8>
# <environment: namespace:base>

편리한 해결 방법이 있습니까?

1) 식별 기능과 동일하게 설정된 .deparseOpts의 변경된 버전을 찾기 위해 환경이 재설정 된 출발의 사본을 생성하는 함수를 정의하십시오. 에서 Run우리는 다음을 만들기 위해 그 기능을 실행 deparse2하고 실행합니다. 이것은 .Internal직접 실행을 피 합니다.

make_deparse <- function() {
  .deparseOpts <- identity
  environment(deparse) <- environment()
  deparse
}

Run <- function() {
  deparse2 <- make_deparse()
  deparse2(identity, control = 65)
}

# test
Run()

2) 이를 수행하는 또 다른 방법은 수정 된 사본의 사본을 넣을 환경을 작성하고 deparse해당 사본에 정의 .deparseOpts기능을 식별 하는 추적을 추가하는 생성자 함수를 정의하는 것입니다. 그런 다음 해당 환경을 반환하십시오. 그런 다음이를 사용하는 함수 Run가 있으며이 예제에서는이를 설명 하는 함수 를 만든 다음 실행하면 Run됩니다. 이것은 사용을 피합니다.Internal

make_deparse_env <- function() {
  e <- environment()
  deparse <- deparse
  suppressMessages(
    trace("deparse", quote(.deparseOpts <- identity), print = FALSE, where = e)
  )
  e
}

Run <- function() {
  e <- make_deparse_env()
  e$deparse(identity, control = 65)
}

# test
Run()

3) 세 번째 방법은 기본값 을 갖도록 설정하고 기본값을 65로 deparse설정하는 새 인수를 추가 하여 재정의 하는 것 입니다..deparseOptsidentitycontrol

make_deparse65 <- function() {
  deparse2 <- function (expr, width.cutoff = 60L, backtick = mode(expr) %in% 
    c("call", "expression", "(", "function"), 
    control = 65, nlines = -1L, .deparseOpts = identity) {}
  body(deparse2) <- body(deparse)
  deparse2
}

Run <- function() {
  deparse65 <- make_deparse65()
  deparse65(identity)
}

# test
Run()