Allow assignment into xpose_data class without conversion to uneval

UUPharmacometrics · Jan 18, 2019 · 0934667 · 0934667
1 parent 5f23dd0
commit 0934667
Showing 1 changed file with 7 additions and 1 deletion.
diff --git a/R/xpose_data.R b/R/xpose_data.R
@@ -169,4 +169,10 @@ xpose_data <- function(runno         = NULL,
     structure(class = c('xpose_data', 'uneval'))
 }
 
-
+#' Allow assignment into xpose_data without conversion to class uneval
+`[[<-.xpose_data` <- function(x, i, value) {
+  x <- unclass(x)
+  x[[i]] <- value
+  as.xpdb(x)
+}
+`$<-.xpose_data` <- `[[<-.xpose_data`