Как получить прошедшее время с system.time?

Question

Есть ли способ получить только числовое значение прошедшего времени из system.time?

Я хочу измерить прошедшее время для набора функций, которые я написал. Я называю эти функции так:

time_f1 <- system.time({
  function_1(x,y,z)
  and some other stuff
})
time_f2 <- system.time({
  function_2(x,y,z)
  and some other stuff
})
...

time_f1 и другие измеренные времена являются объектами типа proc_time, и я должен извлечь прошедшее время.

Есть ли возможность напрямую получить только числовое значение прошедшего времени, чтобы я мог сохранить их в векторе, подобном этому:

time_f[1] <- system.time::elapsed({
  function_1(x,y,z)
  and some other stuff
})
time_f[2] <- system.time::elapsed({
  function_2(x,y,z)
  and some other stuff
})

Я знаю, что system.time::elapsed не существует, но есть ли что-нибудь совместимое? Я не смог найти ничего в help() для system.time или proc.time.

Answer 1

Мы можем сделать

system.time(log(1:1e5))["elapsed"]
#elapsed 
#  0.002

Чтобы получить только числовое значение, выполните

system.time(log(1:1e5))[["elapsed"]]