Trim the "instr.settings" attribute

Trim the "instr.settings" attribute of an existing generic_spct object or of a summary_generic_spct object, by discarding some fields.

Usage

trimInstrSettings(x, fields = "*")

Arguments

x

a generic_spct object or a summary_generic_spct object.

fields

a character vector with the names of the fields to keep, or if first member is "-", the names of fields to delete; "*" as first member of the vector makes the function a no-op, leaving the spectrum object unaltered.

Value

x, possibly with the "instr.settings" attribute modified.

Details

This function alters x itself by reference and in addition returns x invisibly. If x is not a generic_spct object or a summary_generic_spct object, or if the "instr.settings" attribute is not present in x, x is not modified.

Attempts to remove or keep fields that are not present in the attribute are ignored silently. The value of fields in the attribute is never modified, fields are either kept unchanged or removed.

See also

Other measurement metadata functions: add_attr2tb(), getFilterProperties(), getHowMeasured(), getInstrDesc(), getInstrSettings(), getSoluteProperties(), getWhatMeasured(), getWhenMeasured(), getWhereMeasured(), get_attributes(), isValidInstrDesc(), isValidInstrSettings(), select_spct_attributes(), setFilterProperties(), setHowMeasured(), setInstrDesc(), setInstrSettings(), setSoluteProperties(), setWhatMeasured(), setWhenMeasured(), setWhereMeasured(), spct_attr2tb(), spct_metadata(), subset_attributes(), trimInstrDesc()

Examples

my.spct <- white_led.cps_spct
names(instr_settings(my.spct))
#>  [1] "pix.selector"    "HDR.mult"        "target.margin"   "max.integ.time" 
#>  [5] "min.integ.time"  "tot.time.range"  "integ.time"      "num.scans"      
#>  [9] "corr.elect.dark" "corr.sensor.nl"  "boxcar.width"    "linearized"     
#> [13] "tot.time"        "rel.signal"     
trimInstrSettings(my.spct, fields = c("-", "pix.selector")) # by reference!
names(instr_settings(my.spct))
#>  [1] "HDR.mult"        "target.margin"   "max.integ.time"  "min.integ.time" 
#>  [5] "tot.time.range"  "integ.time"      "num.scans"       "corr.elect.dark"
#>  [9] "corr.sensor.nl"  "boxcar.width"    "linearized"      "tot.time"       
#> [13] "rel.signal"