Более быстрая альтернатива 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) Определите функцию, которая генерирует копию файла deparse, среда которого была сброшена, чтобы найти измененную версию .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) Третий подход - переопределить deparse, добавив новый аргумент, который .deparseOptsимеет значение по умолчанию identityи устанавливает значение controlпо умолчанию 65.

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()