fix bug in collapse_native_units when sum has a multiple

tidyverse · Dec 23, 2023 · 2146d06 · 2146d06
1 parent c6b2b6a
commit 2146d06
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/utilities-unit.R b/R/utilities-unit.R
@@ -35,7 +35,7 @@ collapse_native_units <- function(x) {
  components <- collapse_native_units(unit_components(x_i))
  is_native <- unitType(components) == "native"
  if (any(is_native)) {
- x_i <- f(unit(f(as.numeric(components[is_native])), "native"), components[!is_native])
+ unit_components(x_i) <- vec_c(unit(f(as.numeric(components[is_native])), "native"), components[!is_native])
  }
  x_i
  })