R6 classes in R Programming

Introduction

R6 classes help you organize your code by grouping data and actions together. They make your programs easier to understand and reuse.

When you want to create objects that keep their own data and behavior.

When you need to model real-world things like cars, people, or bank accounts in your code.

When you want to write code that is easier to maintain and extend later.

When you want to avoid repeating the same code in many places.

When you want to keep track of changing information inside an object.

Syntax

R Programming

library(R6)

MyClass <- R6Class(
  "MyClass",
  public = list(
    field1 = NULL,
    initialize = function(value) {
      self$field1 <- value
    },
    method1 = function() {
      print(paste("Value is", self$field1))
    }
  )
)

R6Class() creates a new class.

public lists fields and methods accessible from outside.

Examples

This example creates a Person class with a name and a greeting method.

R Programming

library(R6)

Person <- R6Class(
  "Person",
  public = list(
    name = NULL,
    initialize = function(name) {
      self$name <- name
    },
    greet = function() {
      print(paste("Hello, my name is", self$name))
    }
  )
)

This example creates a Counter class that can increase and return its count.

R Programming

library(R6)

Counter <- R6Class(
  "Counter",
  public = list(
    count = 0,
    increment = function() {
      self$count <- self$count + 1
    },
    get_count = function() {
      return(self$count)
    }
  )
)

Sample Program

This program creates a Car class with a brand and speed. It can speed up by a given amount. We make a Toyota car and speed it up twice.

R Programming

library(R6)

Car <- R6Class(
  "Car",
  public = list(
    brand = NULL,
    speed = 0,
    initialize = function(brand) {
      self$brand <- brand
    },
    accelerate = function(amount) {
      self$speed <- self$speed + amount
      print(paste(self$brand, "is going", self$speed, "km/h"))
    }
  )
)

my_car <- Car$new("Toyota")
my_car$accelerate(30)
my_car$accelerate(20)

Important Notes

Use self$ to access fields and methods inside the class.

Initialize fields in the initialize method to set starting values.

R6 classes are useful for keeping data and functions together like real objects.

Summary

R6 classes group data and actions in one place.

Use R6Class() to create a class with fields and methods.

Create objects with $new() and use self$ inside methods.

Practice

1. What is the main purpose of using R6Class() in R?

easy

A. To create plots and visualizations

B. To perform statistical tests on data

C. To import data from external files

D. To create a class that groups data and functions together

Solution

1. Step 1: Understand the role of R6Class()

   R6Class() is used to define a class that can hold both data (fields) and functions (methods) together.

2. Step 2: Compare with other options

   Creating plots and visualizations, performing statistical tests on data, and importing data from external files are unrelated tasks, not the purpose of R6Class().

3. Final Answer:

   To create a class that groups data and functions together -> Option D

4. Quick Check:

   R6Class() = class with data and methods [OK]

Hint: R6Class groups data and actions in one place [OK]

Common Mistakes:

• Thinking R6Class is for data analysis only
• Confusing R6Class with plotting functions
• Assuming R6Class imports data

2. Which of the following is the correct way to define a method inside an R6 class?

easy

A. methods = { my_method <- function() { print(self$field) } }

B. methods = list(my_method = function() { print(self$field) })

C. method <- function() { print(self$field) }

D. methods = function(my_method) { print(self$field) }

Solution

1. Step 1: Recall R6 method syntax

   Methods are defined inside a list with names as method names and values as functions, e.g., methods = list(name = function() {...}).

2. Step 2: Check each option

   methods = list(my_method = function() { print(self$field) }) correctly uses a list with a named function. The other options do not follow the required list structure.

3. Final Answer:

   methods = list(my_method = function() { print(self$field) }) -> Option B

4. Quick Check:

   Methods = list of named functions [OK]

Hint: Methods must be in a named list inside R6Class [OK]

Common Mistakes:

• Defining methods as a single function instead of list
• Using assignment inside methods block incorrectly
• Omitting the list() wrapper

3. What will be the output of this R code?

Person <- R6Class("Person",
  public = list(
    name = NULL,
    initialize = function(name) {
      self$name <- name
    },
    greet = function() {
      paste0("Hello, ", self$name, "!")
    }
  )
)
p <- Person$new("Anna")
p$greet()

medium

A. NULL

B. Error: object 'self' not found

C. "Hello, Anna!"

D. "Hello, name!"

Solution

1. Step 1: Understand object creation and initialization

   The class Person has a field 'name' set during initialization with self$name <- name. The object p is created with name "Anna".

2. Step 2: Evaluate the greet method

   The greet method returns paste0("Hello, ", self$name, "!"), which becomes "Hello, Anna!" for p.

3. Final Answer:

   "Hello, Anna!" -> Option C

4. Quick Check:

   p$greet() = "Hello, Anna!" [OK]

Hint: self$name holds the name; greet returns greeting string [OK]

Common Mistakes:

• Expecting NULL because name is NULL initially
• Confusing self with private or global variables
• Thinking greet prints instead of returns

4. Identify the error in this R6 class definition:

Car <- R6Class("Car",
  public = list(
    speed = 0,
    accelerate = function() {
      speed <- speed + 10
    }
  )
)
c <- Car$new()
c$accelerate()
c$speed

medium

A. The method should use self$speed, not speed alone

B. The class name must be lowercase

C. The accelerate method must return speed explicitly

D. The speed field cannot be initialized to 0

Solution

1. Step 1: Check variable usage inside method

   Inside accelerate(), speed <- speed + 10 updates a local variable speed, not the field. It should be self$speed to update the object's field.

2. Step 2: Verify other options

   Class names can be uppercase, methods don't need explicit return, and initializing speed to 0 is valid.

3. Final Answer:

   The method should use self$speed, not speed alone -> Option A

4. Quick Check:

   Use self$ to access fields inside methods [OK]

Hint: Use self$ to access or change fields inside methods [OK]

Common Mistakes:

• Forgetting self$ prefix for fields
• Assuming local variable changes affect fields
• Thinking class names must be lowercase

5. You want to create an R6 class BankAccount with a field balance starting at 0 and methods deposit(amount) and withdraw(amount). The withdraw method should not allow the balance to go below zero. Which code snippet correctly implements this?

hard

A. BankAccount <- R6Class("BankAccount",
public = list(
balance = 0,
deposit = function(amount) {
self$balance <- self$balance + amount
},
withdraw = function(amount) {
if (self$balance >= amount) {
self$balance <- self$balance - amount
}
}
)
)

B. BankAccount <- R6Class("BankAccount",
public = list(
balance = 0,
deposit = function(amount) {
balance <- balance + amount
},
withdraw = function(amount) {
balance <- balance - amount
}
)
)

C. BankAccount <- R6Class("BankAccount",
public = list(
balance = 0,
deposit = function(amount) {
self$balance <- amount
},
withdraw = function(amount) {
self$balance <- self$balance - amount
}
)
)

D. BankAccount <- R6Class("BankAccount",
public = list(
balance = 0,
deposit = function(amount) {
self$balance <- self$balance + amount
},
withdraw = function(amount) {
self$balance <- self$balance - amount
}
)
)

Solution

1. Step 1: Check deposit method correctness

   Deposit should add amount to self$balance. Some options do this correctly; others do not use self$ or overwrite balance incorrectly.

2. Step 2: Check withdraw method logic

   Withdraw must check if balance >= amount before subtracting to avoid negative balance. Only BankAccount <- R6Class("BankAccount", public = list( balance = 0, deposit = function(amount) { self$balance <- self$balance + amount }, withdraw = function(amount) { if (self$balance >= amount) { self$balance <- self$balance - amount } } ) ) has this check.

3. Final Answer:

   The code snippet with self$balance updates and balance check before withdrawal -> Option A

4. Quick Check:

   Use self$ and check balance before withdrawal [OK]

Hint: Withdraw must check balance before subtracting [OK]

Common Mistakes:

• Not using self$ to update balance
• Overwriting balance instead of adding
• Allowing negative balance without check