Add the replace_metadata<-() method for the Risoe.BINfileData class

[mcol]

This is the first part of #480, implementing my suggestion at #480 (comment).

[RLumSK]

Great. I had to look two times into the sel with the tryCatch() but this is a very elegant solution.

[mcol]

That part of the code comes almost directly from get_RLum() for RLum.Analysis objects, so it's not that original: 😄

Luminescence/R/RLum.Analysis-class.R

Lines 369 to 384 in fbd4a14

	sel <- tryCatch(eval(
	expr = substitute(subset),
	envir = envir,
	enclos = env
	),
	error = function(e) {
	.throw_error("Invalid subset expression, valid terms are: ",
	.collapse(names(envir)))
	})
	if (!is.logical(sel)) {
	.throw_error("'subset' must contain a logical expression")
	}
	if (all(is.na(sel)))
	sel <- FALSE

[RLumSK]

Hm, OK, obviously I could not recall this anymore, although I just had touched this function recently.