Retrieve a registered score
Examples
sc0 <- as_score(function(idxs, data) sum(data[idxs]), s = 2L, name = "tmp_score_get")
register_score("tmp_score_get", sc0)
sc <- get_score("tmp_score_get")
is_score(sc)
#> [1] TRUE
Retrieve a registered score
sc0 <- as_score(function(idxs, data) sum(data[idxs]), s = 2L, name = "tmp_score_get")
register_score("tmp_score_get", sc0)
sc <- get_score("tmp_score_get")
is_score(sc)
#> [1] TRUE