feat: 🧪❌ Implement the input needed by record_income() step

- Implement the numeric input needed by the first scenario step.
- Run tests to validate that tests pass successfully through `record_income()` step.
- Tests should be still failing due to forced fail in verify function ❌.

app/main.R

@@ -3,13 +3,25 @@ box::use(
     bootstrapPage,
     moduleServer,
     NS,
+    numericInput,
+    tagAppendAttributes,
   ],
 )
 
 #' @export
 ui <- function(id) {
   ns <- NS(id)
-  bootstrapPage()
+  bootstrapPage(
+    numericInput(
+      ns("income"),
+      label = "Income",
+      value = 0
+    ) |>
+      tagAppendAttributes(
+        .cssSelector = "input",
+        "data-test" = "income"
+      )
+  )
 }
 
 #' @export