mselect function of does not work inside a function

[rjaffe-exponent]

Please refer to this post: https://stackoverflow.com/questions/50119927/mselect-function-of-drc-package-does-not-work-inside-a-function

The solution is provided there:

tempObj <- try(update(object, fct = fctList[[i]],
                          data = object$origData),    # <--- line added here
                          silent = TRUE)

Should be an easy update to the mselect function.