feat: 🧪✅ Integrate storage code with the app

- Use new interface of saving inputs in the app.
- Update the acceptance test so that each test case uses it's own storage, making them independent of each other.

Author: Jakub Sobolewski

app/main.R

@@ -11,6 +11,9 @@ box::use(
 
 box::use(
   app / components,
+  app / registry,
+  app / storage,
+  app / transaction,
 )
 
 #' @export
@@ -55,29 +58,39 @@ ui <- function(id) {
 }
 
 #' @export
-server <- function(id) {
+server <- function(
+    id,
+    .storage = storage$new(
+      getOption("storage.path", "store.csv"),
+      getOption("storage.schema", transaction$new())
+    )) {
   moduleServer(id, function(input, output, session) {
-    total_income <- reactiveVal(0)
-    total_expenses <- reactiveVal(0)
+    .registry <- registry$new(.storage)
+    has_registry_updated <- reactiveVal(0)
 
     observeEvent(input$record_income, {
-      total_income(total_income() + input$income)
+      .registry$record(transaction$new(input$income)) # nolint
+      has_registry_updated(has_registry_updated() + 1)
     })
 
     observeEvent(input$record_expense, {
-      total_expenses(total_expenses() + input$expense)
+      .registry$record(transaction$new(-input$expense)) # nolint
+      has_registry_updated(has_registry_updated() + 1)
     })
 
     output$total_income <- renderText({
-      total_income()
+      has_registry_updated()
+      .registry$get_total_positive()
     })
 
     output$total_expenses <- renderText({
-      total_expenses()
+      has_registry_updated()
+      .registry$get_total_negative()
     })
 
     output$net_balance <- renderText({
-      total_income() - total_expenses()
+      has_registry_updated()
+      .registry$get_total()
     })
   })
 }

tests/acceptance/dsl.R

@@ -1,4 +1,5 @@
 box::use(
+  glue[glue],
   R6[R6Class],
   rhino,
   selenider,
@@ -13,7 +14,13 @@ AppDriver <- R6Class(
     driver = NULL,
     initialize = function(app = rhino$app()) {
       with_dir("../../", {
-        self$driver <- shinytest2$AppDriver$new(app)
+        self$driver <- shinytest2$AppDriver$new(
+          app,
+          options = list(
+            storage.path = glue("session_{floor(as.numeric(Sys.time()))}.csv"),
+            storage.schema = list(amount = numeric())
+          )
+        )
         self$session <- selenider$selenider_session(
           driver = self$driver,
           local = FALSE