Lst mod

[mduncans]

Updated read_model to be more restrictive in input. must provide path to mod/ctl file not in output directory.

> mod <- read_model("vignettes/test_data/models/onecmt/run003/run003.mod")
Error occurred in Hyperion
Reason:
	Expected input model file, got output model file: vignettes/test_data/models/onecmt/run003/run003.mod
	Try: vignettes/test_data/models/onecmt/run003.mod

hyperion_nonmem_model objects now have the following attributes:

• model_source to relative path to mod file used:

> mod <- read_model("vignettes/test_data/models/onecmt/run003.mod")
> attr(mod, "model_source")
[1] "vignettes/test_data/models/onecmt/run003.mod"

• run_status to show if run/run with errors/not run

> attr(mod, "run_status")
[1] "completed"

Run status is determined if output directory exists (file stem of mod file) and the ext file exists with content in -1000000000 line, then run status is completed. If no content in final estimates line in ext file, or ext file does not exist, but lst file does, then run status is run_with_errors. If no output directory exists then run status is not_run

added extraction of Model content from lst file

> lst_mod <- read_model_from_lst("vignettes/test_data/models/onecmt/run003/run003.lst")
> attr(lst_mod, "run_status")
[1] "completed"
> attr(lst_mod, "model_source")
[1] "vignettes/test_data/models/onecmt/run003/run003.lst