Improve readability

[hsonne]

kwb.rabimo/inst/scripts/plumber.R

Line 104 in ac5836b

cols <- 3:5

# old
cols <- 3:5
x <- colSums(areas * as.matrix(output[, cols])) / sum(areas)
stats::setNames(as.list(x), names(output)[cols])

# new
values <- as.matrix(output[, 3:5])
means <- colSums(areas * values) / sum(areas)
stats::setNames(as.list(means), colnames(values))