`extend` with sourced module with `use` returns error

[krystian8207]

Hi @wahani. Thank you for the great package!

I've found one issue while trying to use extend function with module sourced from the file.

Reproducible example:

# module.R
export("bar")
bar <- function() "bar"
foo <- function() "foo"

When sourcing the module with use and trying to extend it:

test_module <- use("module.R")
extend(
  test_module, {
  stopifnot(foo() == "foo") 
})

I get:

Error in parse(text = c("{", originalExpr, additionalExpr, "}")) : 
  <text>:3:41: unexpected '<'
2: structure(expression(export("bar"), bar <- function() "bar", 
3:     foo <- function() "foo"), srcfile = <
                                           ^

I'd be happy if you could take a closer look at it. Thank you.

[wahani]

@krystian8207 thanks for reporting this issue. It is a bug while parsing/deparsing the source code of modules. I have prepared a fix. You may install it with:

remotes::install_github("wahani/modules", "feature16")

Please report back if this resolves your issue.

[krystian8207]

@wahani Thank you so much. The change fixes my issue.

[wahani]

Thanks for reporting back! It's now in master and with the next release on CRAN.

[dokato]

hey @wahani, thanks for creating this package. I encountered this error too, but I'm using it in a project where installation from github is a big no-go. Are you planning the new CRAN release any time soon?

[wahani]

@dokato kind of. I was hoping to close some of the other issues. But I am still waiting for feedback. I see what I can do and release it asap with the current bug fixes included.

[wahani]

@dokato on it's way to CRAN now.

[dokato]

That's great, thanks!