Delete a NONMEM subroutine from control file contents

delete_dollar(m, dollar)

Arguments

m

An nm object.

dollar

Character. Name of subroutine.

Value

An nm object with modified ctl_contents field.

Examples

# create example object m1 from package demo files
exdir <- system.file("extdata", "examples", "theopp", package = "NMproject")
m1 <- new_nm(run_id = "m1", 
             based_on = file.path(exdir, "Models", "ADVAN2.mod"),
             data_path = file.path(exdir, "SourceData", "THEOPP.csv"))

m1 %>% dollar("TABLE")
#> $`execute.Models/m1`
#>   1| $TABLE ID TIME IPRED IWRES IRES CWRES NPDE
#>   2| FILE=sdtabm1 NOPRINT ONEHEADER
#>   3| $TABLE ID ETAS(1:LAST); individual parameters
#>   4| FILE=patabm1 NOPRINT ONEHEADER
#>   5| $TABLE ID ; continuous covariates
#>   6| FILE=cotabm1 NOPRINT ONEHEADER
#>   7| $TABLE ID ; categorical covariates
#>   8| FILE=catabm1 NOPRINT ONEHEADER
#> 
m1 <- m1 %>% delete_dollar("TABLE")
m1 %>% dollar("TABLE")  ## missing
#> $`execute.Models/m1`
#>   1| NA
#>