fix [.osem_measurements

regression from 6d2f6f6
6 years ago · 6a95171bd3
parent faa58d4bb8
commit 6a95171bd3
1 changed files with 2 additions and 2 deletions
--- a/R/measurement_utils.R
+++ b/R/measurement_utils.R
@ -42,8 +42,8 @@ mutate.osem_measurements = dplyr_class_wrapper(osem_as_measurements)
 #' @noRd
 #' @export
 `[.osem_measurements` = function(x, i, ...) {
-  s = NextMethod('[')
+  s = NextMethod()
-  mostattributes(s) = attributes(s)
+  mostattributes(s) = attributes(x)
  s
 }