delta_t

R/change_components.R

@@ -21,39 +21,39 @@ print_flow_vec = function(vec) {
 #' @export
 print.PerCapitaFlow = function(x, ...) {
   c(
-      From = x$from
+     `Flow name` = lhs_char(x$rate)
+    , From = x$from
     , To = x$to
     , `Per-capita rate expression` = rhs_char(x$rate)
-    , `Absolute rate symbol` = lhs_char(x$rate)
   ) |> print_flow_vec()
 }
 
 #' @export
 print.AbsoluteFlow = function(x, ...) {
   c(
-      From = x$from
+      `Flow name` = lhs_char(x$rate)
+    , From = x$from
     , To = x$to
     , `Absolute rate expression` = rhs_char(x$rate)
-    , `Absolute rate symbol` = lhs_char(x$rate)
   ) |> print_flow_vec()
 }
 
 
 #' @export
 print.AbsoluteInFlow = function(x, ...) {
   c(
-      To = x$to
+      `Flow name` = lhs_char(x$rate)
+    , To = x$to
     , `Absolute rate expression` = rhs_char(x$rate)
-    , `Absolute rate symbol` = lhs_char(x$rate)
   ) |> print_flow_vec()
 }
 
 #' @export
 print.AbsoluteOutFlow = function(x, ...) {
   c(
-      From = x$from
+      `Flow name` = lhs_char(x$rate)
+    , From = x$from
     , `Absolute rate expression` = rhs_char(x$rate)
-    , `Absolute rate symbol` = lhs_char(x$rate)
   ) |> print_flow_vec()
 }
 

R/change_models.R

@@ -1,7 +1,9 @@
 
-ChangeModelDefaults = function() {
+ChangeModelDefaults = function(delta_t = NULL) {
   self = ChangeModel()
 
+  self$delta_t = handle_delta_t(delta_t)
+
   self$change_list = list()
 
   self$flow_frame = function() {