| Title: | A Fast and Lightweight R6 Parameter Interface |
|---|---|
| Description: | By making use of 'set6', alongside the S3 and R6 paradigms, this package provides a fast and lightweight R6 interface for parameters and parameter sets. |
| Authors: | Raphael Sonabend [aut, cre] |
| Maintainer: | Raphael Sonabend <[email protected]> |
| License: | MIT + file LICENSE |
| Version: | 0.2.4 |
| Built: | 2024-10-27 04:19:40 UTC |
| Source: | https://github.com/xoopR/param6 |
By making use of 'set6', alongside the S3 and R6 paradigms, this package provides a fast and lightweight R6 interface for parameters and parameter sets.
Maintainer: Raphael Sonabend [email protected] (ORCID)
Useful links:
Report bugs at https://github.com/xoopR/param6/issues
Creates a new ParameterSet by extracting the given
parameters. S3 method for the $extract public method.
## S3 method for class 'ParameterSet' object[...]## S3 method for class 'ParameterSet' object[...]
object |
|
... |
( |
Coercion from ParameterSet to data.table::data.table. Dependencies, transformations, and tag properties are all lost in coercion.
## S3 method for class 'ParameterSet' as.data.table(x, sort = TRUE, ...)## S3 method for class 'ParameterSet' as.data.table(x, sort = TRUE, ...)
x |
|
sort |
( |
... |
( |
Coercions to ParameterSet
as.ParameterSet(x, ...) ## S3 method for class 'data.table' as.ParameterSet(x, ...) ## S3 method for class 'prm' as.ParameterSet(x, ...) ## S3 method for class 'list' as.ParameterSet(x, ...)as.ParameterSet(x, ...) ## S3 method for class 'data.table' as.ParameterSet(x, ...) ## S3 method for class 'prm' as.ParameterSet(x, ...) ## S3 method for class 'list' as.ParameterSet(x, ...)
x |
( |
... |
( |
Methods for coercing various objects to a prm.
as.prm(x, ...) ## S3 method for class 'ParameterSet' as.prm(x, ...) ## S3 method for class 'data.table' as.prm(x, ...)as.prm(x, ...) ## S3 method for class 'ParameterSet' as.prm(x, ...) ## S3 method for class 'data.table' as.prm(x, ...)
x |
( |
... |
( |
Concatenate multiple ParameterSet objects with unique ids and tags into a single ParameterSet.
## S3 method for class 'ParameterSet' c(..., pss = list(...))## S3 method for class 'ParameterSet' c(..., pss = list(...))
... |
(ParameterSets) |
pss |
( |
Concatenates ids, tags, tag properties and dependencies. Assumes ids and tags are unique; trafos are combined into a list.
Function to create a condition for ParameterSet dependencies
for use in the $deps public method.
cnd(type, value = NULL, id = NULL, error = NULL)cnd(type, value = NULL, id = NULL, error = NULL)
type |
( |
value |
( |
id |
( |
error |
( |
This function should never be used outside of creating a condition for
a dependency in a ParameterSet. Currently the following conditions are
supported based on the type argument, we refer to the parameter depended on
as in the independent parameter, and the other as the dependent:
"eq" - If value is not NULL then checks if the independent parameter
equals value, otherwise checks if the independent and dependent parameter
are equal.
"neq" - If value is not NULL then checks if the independent parameter
does not equal value, otherwise checks if the independent and dependent
parameter are not equal.
"gt"/"lt" - If value is not NULL then checks if the independent
parameter is greater/less than value, otherwise checks if the independent
parameter is greater/less than the dependent parameter.
"geq"/"leq" - If value is not NULL then checks if the independent
parameter is greater/less than or equal to value, otherwise checks if the
independent parameter is greater/less than or equal to the dependent
parameter.
"any" - If value is not NULL then checks if the independent parameter
equals any of value, otherwise checks if the independent parameter equals
any of dependent parameter.
"nany" - If value is not NULL then checks if the independent
parameter does not equal any of value, otherwise checks if the independent
parameter does not equal any of dependent parameter.
"len" - If value is not NULL then checks if the length of the
independent parameter equals value, otherwise checks if the independent
and dependent parameter are the same length.
"inc" - Checks if the parameter is increasing.
"sinc" - Checks if the parameter is strictly increasing.
"dec" - Checks if the parameter is decreasing.
"sdec" - Checks if the parameter is strictly decreasing.
Concatenate multiple ParameterSet objects into a single ParameterSet.
cpset(..., pss = list(...), clone = TRUE)cpset(..., pss = list(...), clone = TRUE)
... |
(ParameterSets) |
pss |
( |
clone |
( |
Concatenates ids, tags, tag properties and dependencies, but not transformations.
Primarily for internal use
expect_equal_ps(obj, expected)expect_equal_ps(obj, expected)
obj, expected
|
Gets the number of parameters in the ParameterSet.
## S3 method for class 'ParameterSet' length(x)## S3 method for class 'ParameterSet' length(x)
x |
ParameterSet objects store parameters (prm objects) and add
internal validation checks and methods for:
Getting and setting parameter values
Transforming parameter values
Providing dependencies of parameters on each other
Tagging parameters, which may enable further properties
Storing subsets of parameters under prefixes
tagsNone -> named_list()
Get tags from the parameter set.
idsNone -> character()
Get ids from the parameter set.
lengthNone -> integer(1)
Get the length of the parameter set as the number of parameters.
depsNone -> data.table::data.table Get parameter dependencies, NULL if none.
supportsNone -> named_list()
Get supports from the parameter set.
tag_propertieslist() -> self / None -> list()
If x is missing then returns tag properties if any.
If x is not missing then used to tag properties. Currently properties
can either be:
i) 'required' - parameters with this tag must have set (non-NULL)
values; if a parameter is both 'required' and 'linked' then exactly
one parameter in the 'linked' tag must be tagged;
ii) 'linked' - parameters with 'linked' tags are dependent on one another
and only one can be set (non-NULL at a time);
iii) 'unique' - parameters with this tag must have no duplicated
elements, therefore this tag only makes sense for vector parameters;
iv) 'immutable' - parameters with this tag cannot be updated after
construction.
valueslist() -> self / None -> list()
If x is missing then returns the set (non-NULL) values without
transformation or filtering; use $get_values for a more sophisticated
getter of values.
If x is not missing then used to set values of parameters, which are
first checked internally with the $check method before setting the new
values.
See examples at end.
trafofunction()|list() -> self / None -> function()|list()
If x is missing then returns a transformation function if previously
set, a list of transformation functions, otherwise NULL.
If x is not missing then it should either be:
a function with arguments x and self, which internally correspond
to self being the ParameterSet the transformation is being added to,
and x <- self$values.
a list of functions like above
The transformation function is automatically called after a call to
self$get_values() and is used to transform set values, it should
therefore result in a list. If using self$get_values() within the
transformation function, make sure to set transform = FALSE to prevent
infinite recursion, see examples at end.
It is generally safer to call the transformation with
$transform(self$values) as this will first check to see if $trafo
is a function or list. If the latter then each function in the list is
applied, one after the other.
new()
Constructs a ParameterSet object.
ParameterSet$new(prms = list(), tag_properties = NULL)
prms(list())
List of prm objects. Ids should be unique.
tag_properties(list())
List of tag properties. Currently supported properties are: i) 'required' -
parameters with this tag property must be non-NULL; ii) 'linked' - only one
parameter in a linked tag group can be non-NULL and the others should be
NULL, this only makes sense with an associated trafo; iii) 'unique' -
parameters with this tag must have no duplicated elements, only makes sense
for vector parameters; iv) 'immutable' - parameters with this tag cannot be
updated after construction.
prms <- list(
prm("a", Set$new(1), 1, tags = "t1"),
prm("b", "reals", 1.5, tags = "t1"),
prm("d", "reals", 2, tags = "t2")
)
ParameterSet$new(prms)
print()
Prints the ParameterSet after coercion with
as.data.table.ParameterSet.
ParameterSet$print(sort = TRUE)
sort(logical(1))
If TRUE (default) sorts the ParameterSet
alphabetically by id.
prms <- list(
prm("a", Set$new(1), 1, tags = "t1"),
prm("b", "reals", 1.5, tags = "t1"),
prm("d", "reals", 2, tags = "t2")
)
p <- ParameterSet$new(prms)
p$print()
print(p)
p
get_values()
Gets values from the ParameterSet with options to filter
by specific IDs and tags, and also to transform the values.
ParameterSet$get_values( id = NULL, tags = NULL, transform = TRUE, inc_null = TRUE, simplify = TRUE )
id(character())
If not NULL then returns values for given ids.
tags(character())
If not NULL then returns values for given tags.
transform(logical(1))
If TRUE (default) and $trafo is not NULL then runs the set
transformation function before returning the values.
inc_null(logical(1))
If TRUE (default) then returns values for all ids even if NULL.
simplify(logical(1))
If TRUE (default) then unlists scalar values, otherwise always
returns a list.
prms <- list(
prm("a", "reals", 1, tags = "t1"),
prm("b", "reals", 1.5, tags = "t1"),
prm("d", "reals", tags = "t2")
)
p <- ParameterSet$new(prms)
p$trafo <- function(x, self) {
x$a <- exp(x$a)
x
}
p$get_values()
p$get_values(inc_null = FALSE)
p$get_values(id = "a")
p$get_values(tags = "t1")
add_dep()
Gets values from the ParameterSet with options to filter
by specific IDs and tags, and also to transform the values.
ParameterSet$add_dep(id, on, cnd)
id(character(1))
The dependent variable for the condition that depends on the given
variable, on, being a particular value. Should be in self$ids.
on(character(1))
The independent variable for the condition that is depended on by the
given variable, id. Should be in self$ids.
cnd(cnd(1))
The condition defined by cnd which determines how id depends on on.
# not run as errors
\dontrun{
# Dependency on specific value
prms <- list(
prm("a", "reals", NULL),
prm("b", "reals", 1)
)
p <- ParameterSet$new(prms)
p$add_dep("a", "b", cnd("eq", 2))
# 'a' can only be set if 'b' equals 2
p$values$a <- 1
p$values <- list(a = 1, b = 2)
# Dependency on variable value
prms <- list(
prm("a", "reals", NULL),
prm("b", "reals", 1)
)
p <- ParameterSet$new(prms)
p$add_dep("a", "b", cnd("eq", id = "b"))
# 'a' can only be set if it equals 'b'
p$values$a <- 2
p$values <- list(a = 2, b = 2)
}
rep()
Replicate the ParameterSet with identical parameters.
In order to avoid duplicated parameter ids, every id in the
ParameterSet is given a prefix in the format prefix__id. In
addition, linked tags are also given the same prefix to prevent
incorrectly linking parameters.
The primary use-case of this method is to treat the ParameterSet as a
collection of identical ParameterSet objects.
Note that this mutates the ParameterSet, if you want to instead create
a new object then use rep.ParameterSet instead (or copy and deep clone)
first.
ParameterSet$rep(times, prefix)
times(integer(1))
Numer of times to replicate the ParameterSet.
prefix(character(1)|character(length(times)))
The prefix to add to ids and linked tags. If length 1 then is
internally coerced to paste0(prefix, seq(times)), otherwise the length
should be equal to times.
extract()
Creates a new ParameterSet by extracting the given
parameters.
ParameterSet$extract(id = NULL, tags = NULL, prefix = NULL)
id(character())
If not NULL then specifies the parameters by id to extract. Should be
NULL if prefix is not NULL.
tags(character())
If not NULL then specifies the parameters by tag to extract. Should be
NULL if prefix is not NULL.
prefix(character())
If not NULL then extracts parameters according to their prefix and
additionally removes the prefix from the id. A prefix is determined as
the string before "__" in an id.
# extract by id
prms <- list(
prm("a", "reals", NULL),
prm("b", "reals", 1)
)
p <- ParameterSet$new(prms)
p$extract("a")
# equivalently
p["a"]
# extract by prefix
prms <- list(
prm("Pre1__par1", Set$new(1), 1, tags = "t1"),
prm("Pre1__par2", "reals", 3, tags = "t2"),
prm("Pre2__par1", Set$new(1), 1, tags = "t1"),
prm("Pre2__par2", "reals", 3, tags = "t2")
)
p <- ParameterSet$new(prms)
p$extract(tags = "t1")
p$extract(prefix = "Pre1")
# equivalently
p[prefix = "Pre1"]
remove()
Removes the given parameters from the set.
ParameterSet$remove(id = NULL, prefix = NULL)
id(character())
If not NULL then specifies the parameters by id to extract. Should be
NULL if prefix is not NULL.
prefix(character())
If not NULL then extracts parameters according to their prefix and
additionally removes the prefix from the id. A prefix is determined as
the string before "__" in an id.
getParameterValue()
Deprecated method added for distr6 compatibility. Use $values/$get_values() in the future. Will be removed in 0.3.0.
ParameterSet$getParameterValue(id, ...)
idParameter id
...Unused
setParameterValue()
Deprecated method added for distr6 compatibility. Use $set_values in the future. Will be removed in 0.3.0.
ParameterSet$setParameterValue(..., lst = list(...))
...Parameter ids
lstList of parameter ids
set_values()
Convenience function for setting multiple parameters without changing or accidentally removing others.
ParameterSet$set_values(..., lst = list(...))
...Parameter ids
lstList of parameter ids
parameters()
Deprecated method added for distr6 compatibility. Use $print/as.data.table() in the future. Will be removed in 0.3.0.
ParameterSet$parameters(...)
...Unused
transform()
Applies the internal transformation function.
If no function has been passed to $trafo then x is returned
unchanged. If $trafo is a function then x is passed directly to
this. If $trafo is a list then x is evaluated and passed down the
list iteratively.
ParameterSet$transform(x = self$values)
x(named list(1))
List of values to transform.
named list(1)
clone()
The objects of this class are cloneable with this method.
ParameterSet$clone(deep = FALSE)
deepWhether to make a deep clone.
library(set6) ## $value examples p <- ParameterSet$new(list(prm(id = "a", support = Reals$new()))) p$values$a <- 2 p$values ## $trafo examples p <- ParameterSet$new(list(prm(id = "a", 2, support = Reals$new()))) p$trafo # simple transformation p$get_values() p$trafo <- function(x, self) { x$a <- exp(x$a) x } p$get_values() # more complex transformation on tags p <- ParameterSet$new( list(prm(id = "a", 2, support = Reals$new(), tags = "t1"), prm(id = "b", 3, support = Reals$new(), tags = "t1"), prm(id = "d", 4, support = Reals$new())) ) # make sure `transform = FALSE` to prevent infinite recursion p$trafo <- function(x, self) { out <- lapply(self$get_values(tags = "t1", transform = FALSE), function(.x) 2^.x) out <- c(out, list(d = x$d)) out } p$get_values() ## ------------------------------------------------ ## Method `ParameterSet$new` ## ------------------------------------------------ prms <- list( prm("a", Set$new(1), 1, tags = "t1"), prm("b", "reals", 1.5, tags = "t1"), prm("d", "reals", 2, tags = "t2") ) ParameterSet$new(prms) ## ------------------------------------------------ ## Method `ParameterSet$print` ## ------------------------------------------------ prms <- list( prm("a", Set$new(1), 1, tags = "t1"), prm("b", "reals", 1.5, tags = "t1"), prm("d", "reals", 2, tags = "t2") ) p <- ParameterSet$new(prms) p$print() print(p) p ## ------------------------------------------------ ## Method `ParameterSet$get_values` ## ------------------------------------------------ prms <- list( prm("a", "reals", 1, tags = "t1"), prm("b", "reals", 1.5, tags = "t1"), prm("d", "reals", tags = "t2") ) p <- ParameterSet$new(prms) p$trafo <- function(x, self) { x$a <- exp(x$a) x } p$get_values() p$get_values(inc_null = FALSE) p$get_values(id = "a") p$get_values(tags = "t1") ## ------------------------------------------------ ## Method `ParameterSet$add_dep` ## ------------------------------------------------ # not run as errors ## Not run: # Dependency on specific value prms <- list( prm("a", "reals", NULL), prm("b", "reals", 1) ) p <- ParameterSet$new(prms) p$add_dep("a", "b", cnd("eq", 2)) # 'a' can only be set if 'b' equals 2 p$values$a <- 1 p$values <- list(a = 1, b = 2) # Dependency on variable value prms <- list( prm("a", "reals", NULL), prm("b", "reals", 1) ) p <- ParameterSet$new(prms) p$add_dep("a", "b", cnd("eq", id = "b")) # 'a' can only be set if it equals 'b' p$values$a <- 2 p$values <- list(a = 2, b = 2) ## End(Not run) ## ------------------------------------------------ ## Method `ParameterSet$extract` ## ------------------------------------------------ # extract by id prms <- list( prm("a", "reals", NULL), prm("b", "reals", 1) ) p <- ParameterSet$new(prms) p$extract("a") # equivalently p["a"] # extract by prefix prms <- list( prm("Pre1__par1", Set$new(1), 1, tags = "t1"), prm("Pre1__par2", "reals", 3, tags = "t2"), prm("Pre2__par1", Set$new(1), 1, tags = "t1"), prm("Pre2__par2", "reals", 3, tags = "t2") ) p <- ParameterSet$new(prms) p$extract(tags = "t1") p$extract(prefix = "Pre1") # equivalently p[prefix = "Pre1"]library(set6) ## $value examples p <- ParameterSet$new(list(prm(id = "a", support = Reals$new()))) p$values$a <- 2 p$values ## $trafo examples p <- ParameterSet$new(list(prm(id = "a", 2, support = Reals$new()))) p$trafo # simple transformation p$get_values() p$trafo <- function(x, self) { x$a <- exp(x$a) x } p$get_values() # more complex transformation on tags p <- ParameterSet$new( list(prm(id = "a", 2, support = Reals$new(), tags = "t1"), prm(id = "b", 3, support = Reals$new(), tags = "t1"), prm(id = "d", 4, support = Reals$new())) ) # make sure `transform = FALSE` to prevent infinite recursion p$trafo <- function(x, self) { out <- lapply(self$get_values(tags = "t1", transform = FALSE), function(.x) 2^.x) out <- c(out, list(d = x$d)) out } p$get_values() ## ------------------------------------------------ ## Method `ParameterSet$new` ## ------------------------------------------------ prms <- list( prm("a", Set$new(1), 1, tags = "t1"), prm("b", "reals", 1.5, tags = "t1"), prm("d", "reals", 2, tags = "t2") ) ParameterSet$new(prms) ## ------------------------------------------------ ## Method `ParameterSet$print` ## ------------------------------------------------ prms <- list( prm("a", Set$new(1), 1, tags = "t1"), prm("b", "reals", 1.5, tags = "t1"), prm("d", "reals", 2, tags = "t2") ) p <- ParameterSet$new(prms) p$print() print(p) p ## ------------------------------------------------ ## Method `ParameterSet$get_values` ## ------------------------------------------------ prms <- list( prm("a", "reals", 1, tags = "t1"), prm("b", "reals", 1.5, tags = "t1"), prm("d", "reals", tags = "t2") ) p <- ParameterSet$new(prms) p$trafo <- function(x, self) { x$a <- exp(x$a) x } p$get_values() p$get_values(inc_null = FALSE) p$get_values(id = "a") p$get_values(tags = "t1") ## ------------------------------------------------ ## Method `ParameterSet$add_dep` ## ------------------------------------------------ # not run as errors ## Not run: # Dependency on specific value prms <- list( prm("a", "reals", NULL), prm("b", "reals", 1) ) p <- ParameterSet$new(prms) p$add_dep("a", "b", cnd("eq", 2)) # 'a' can only be set if 'b' equals 2 p$values$a <- 1 p$values <- list(a = 1, b = 2) # Dependency on variable value prms <- list( prm("a", "reals", NULL), prm("b", "reals", 1) ) p <- ParameterSet$new(prms) p$add_dep("a", "b", cnd("eq", id = "b")) # 'a' can only be set if it equals 'b' p$values$a <- 2 p$values <- list(a = 2, b = 2) ## End(Not run) ## ------------------------------------------------ ## Method `ParameterSet$extract` ## ------------------------------------------------ # extract by id prms <- list( prm("a", "reals", NULL), prm("b", "reals", 1) ) p <- ParameterSet$new(prms) p$extract("a") # equivalently p["a"] # extract by prefix prms <- list( prm("Pre1__par1", Set$new(1), 1, tags = "t1"), prm("Pre1__par2", "reals", 3, tags = "t2"), prm("Pre2__par1", Set$new(1), 1, tags = "t1"), prm("Pre2__par2", "reals", 3, tags = "t2") ) p <- ParameterSet$new(prms) p$extract(tags = "t1") p$extract(prefix = "Pre1") # equivalently p[prefix = "Pre1"]
The prm class is required for ParameterSet objects, it
allows specifying a parameter as a named set and optionally setting values
and tags.
prm(id, support, value = NULL, tags = NULL, .check = TRUE)prm(id, support, value = NULL, tags = NULL, .check = TRUE)
id |
( |
support |
|
value |
|
tags |
( |
.check |
For internal use only. |
library(set6) # Constructing a prm with a Set support prm( id = "a", support = Reals$new(), value = 1 ) # Constructing a prm with a support already in the dictionary prm( id = "a", support = "reals", value = 1 ) # Adding tags prm( id = "a", support = "reals", value = 1, tags = c("tag1", "tag2") )library(set6) # Constructing a prm with a Set support prm( id = "a", support = Reals$new(), value = 1 ) # Constructing a prm with a support already in the dictionary prm( id = "a", support = "reals", value = 1 ) # Adding tags prm( id = "a", support = "reals", value = 1, tags = c("tag1", "tag2") )
See ParameterSet for full details.
pset(..., prms = list(...), tag_properties = NULL, deps = NULL, trafo = NULL)pset(..., prms = list(...), tag_properties = NULL, deps = NULL, trafo = NULL)
... |
|
prms |
( |
tag_properties |
( |
deps |
( |
trafo |
( |
library(set6) # simple example prms <- list( prm("a", Set$new(1), 1, tags = "t1"), prm("b", "reals", 1.5, tags = "t1"), prm("d", "reals", 2, tags = "t2") ) p <- pset(prms = prms) # with properties, deps, trafo p <- pset( prm("a", Set$new(1), 1, tags = "t1"), prm("b", "reals", 1.5, tags = "t1"), prm("d", "reals", 2, tags = "t2"), tag_properties = list(required = "t2"), deps = list( list(id = "a", on = "b", cond = cnd("eq", 1.5)) ), trafo = function(x, self) return(x) )library(set6) # simple example prms <- list( prm("a", Set$new(1), 1, tags = "t1"), prm("b", "reals", 1.5, tags = "t1"), prm("d", "reals", 2, tags = "t2") ) p <- pset(prms = prms) # with properties, deps, trafo p <- pset( prm("a", Set$new(1), 1, tags = "t1"), prm("b", "reals", 1.5, tags = "t1"), prm("d", "reals", 2, tags = "t2"), tag_properties = list(required = "t2"), deps = list( list(id = "a", on = "b", cond = cnd("eq", 1.5)) ), trafo = function(x, self) return(x) )
In contrast to the $rep method in ParameterSet, this method
deep clones the ParameterSet and returns a new object.
## S3 method for class 'ParameterSet' rep(x, times, prefix, ...)## S3 method for class 'ParameterSet' rep(x, times, prefix, ...)
x |
|
times |
( |
prefix |
( |
... |
( |
In order to avoid duplicated parameter ids, every id in the
ParameterSet is given a prefix in the format prefix__id. In
addition, linked tags are also given the same prefix to prevent
incorrectly linking parameters.
The primary use-case of this method is to treat the ParameterSet as a collection of identical ParameterSet objects.
dictionar6::Dictionary for parameter supports
See dictionar6::Dictionary for full details of how to add other set6::Set objects as supports to this dictionary.
support_dictionary$keys support_dictionary$itemssupport_dictionary$keys support_dictionary$items