Custom operation on a coin. This is an experimental new feature so please check the results carefully.
Usage
# S3 method for class 'coin'
Custom(
x,
dset,
f_cust,
f_cust_para = NULL,
write_to = NULL,
write2log = TRUE,
...
)Arguments
- x
A coin
- dset
Target data set
- f_cust
Function to apply to the data set. See details.
- f_cust_para
Optional additional parameters to pass to the function defined by
f_cust.- write_to
Name of data set to write to
- write2log
Logical: whether or not to write to the log.
- ...
Arguments to pass to/from other methods.
Details
In this function, the data set named dset is extracted from the coin using
get_dset(coin, dset). It is passed to the function f_cust, which is required
to return an equivalent but modified data frame, which is then written as a new
data set with name write_to. This is intended to allow arbitrary operations
on coin data sets while staying within the COINr framework, which means that if
Regen() is used, these operations will be re-run, allowing them to be included
in things like sensitivity analysis.
The format of f_cust is important. It must be a function whose first argument
is called x: this will be the argument that the data is passed to. The data will
be in the same format as extracted via get_dset(coin, dset), which means it will
have a uCode column. f_cust can have other arguments which are passed
to it via f_cust_para. The function should return a data frame similar to the data
that was passed to it, it must contain have the same column names (meaning you can't
remove indicators), but otherwise is flexible - this means some caution is necessary
to ensure that subsequent operations don't fail. Be careful, for example, to ensure
that there are no duplicates in uCode, and that indicator columns are numeric.
The function assigned to f_cust is passed to base::do.call(), therefore it can
be passed either as a string naming the function, or as the function itself. Depending
on the context, the latter option may be preferable because this stores the function
within the coin, which makes it portable. Otherwise, if the function is simply
named as a string, you must make sure it is available to access in the environment.
Examples
# build example coin
coin <- build_example_coin(up_to = "new_coin")
#> iData checked and OK.
#> iMeta checked and OK.
#> Written data set to .$Data$Raw
# create function - replaces suspected unreliable point with NA
f_NA <- function(x){ x[3, 10] <- NA; return(x)}
# call function from Custom()
coin <- Custom(coin, dset = "Raw", f_cust = f_NA)
#> Written data set to .$Data$Custom
stopifnot(is.na(coin$Data$Custom[3,10]))