S7 on new_object()

Author: coatless

R/s7-bank-account.R

@@ -57,8 +57,8 @@ BankAccount <- S7::new_class(
       stop("Initial balance cannot be negative")
     }
 
-    new_object(
-      .parent = S7_object(),
+    S7::new_object(
+      .parent = S7::S7_object(),
       account_number = account_number,
       account_holder = account_holder,
       balance = initial_balance
@@ -323,7 +323,7 @@ SavingsAccount <- S7::new_class(
       ))
     }
 
-    new_object(
+    S7::new_object(
       .parent = BankAccount(account_number, account_holder, initial_balance),
       interest_rate = interest_rate,
       min_balance = min_balance
@@ -392,8 +392,13 @@ S7::method(add_interest, SavingsAccount) <- function(x, ...) {
   invisible(x)
 }
 
-# Override account info for SavingsAccount
+#' Get Account Information for Savings Account
+#'
+#' Prints detailed information about the savings account including account number,
+#' holder name, balance, interest rate, and minimum balance.
+#'
 #' @export
+#' @noRd
 S7::method(get_account_info, SavingsAccount) <- function(x, ...) {
   cat("=== Savings Account Information ===\n")
   cat(sprintf("Account Number: %s\n", x@account_number))
@@ -463,7 +468,7 @@ CheckingAccount <- S7::new_class(
       stop("Initial balance cannot be negative")
     }
 
-    new_object(
+    S7::new_object(
       .parent = BankAccount(account_number, account_holder, initial_balance),
       overdraft_limit = overdraft_limit,
       transaction_fee = transaction_fee