Eu sei que existe o Rprof(), mas ele me parece bastante impreciso comparado ao microbenchmark(). Contudo, se quero usar o microbenchmark() eu tenho que chamar a função 2 vezes, uma para ter a saída dela e outra para executar o tempo dela (o que me parece bastante inviável)

A função não é essa, mas segue um exemplo do meu problema:

    teste <- function(x){
      
      Rprof()
      x <- x+2
      Rprof(NULL)
    
      return(summaryRprof())
    }
    guarda_x_e_tempo <- teste(2)

ou 

    teste <- function(x){
      x <- x+2
      return(x)
    }
    guarda_x <- teste(2)
    guarda_tempo <- teste(2)