Merge pull request #135 from billdenney/allow-assign

Allow assignment into xpose_data class without conversion to uneval
UUPharmacometrics · Jan 19, 2019 · 4bf7ff9 · 4bf7ff9
2 parents 5f23dd0 + 0934667
commit 4bf7ff9
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`