Duplicate module timing information printed

[mjermann]

To repro:

myFunc <- function(a, b, c) {
    return(a + 2*(floor(b/c)))
}

myModule <- CustomFunctionModule$new(name = "myFunc"
                                     , fun = myFunc)

myModule$startExecution(list(a = 1, b = 2, c=0.3))
myModule$getOutput()

Output:

[1] "*UpDraft* myFunc took 7.70092e-05 seconds to complete"
[1] "*UpDraft* myFunc took 7.70092e-05 seconds to complete"
[1] 13

[aswathyajith]

Is this issue fixed?

[mjermann]

nope - this is still an active bug (should be a quick fix though).

[aswathyajith]

I built and installed the package from the source code but not able to reproduce the issue.