Generics em R - Exemplo 2

orm.R

library ("methods")

# Classe
setRefClass("contacts",
	fields = list (
		id = "numeric",
		first_name = "character",
		last_name = "character",
		age = "numeric",
		email = "character"
	)
)

# Criação da instância da classe `contacts`
Contacts <- new("contacts")

# Leitura da classe
class <- Contacts$getClass()

# Leitura dos campos da classe
class_fields <- class@fieldClasses

# Extração dos nomes das propriedades
field_names <- names(class_fields)

# Acessando uma propriedade da classe de forma dinâmica
Contacts[["id"]] <- 0
Contacts[["email"]] <- "alexandre@aledsz.com.br"

# Preenchendo dados de um data.frame em uma classe (e vice-versa, se quiser)
dados <- data.frame (
	id = 0,
	first_name = "Alexandre",
	last_name = "de Souza",
	age = 22,
	email = "alexandre@aledsz.com.br"
)

for (field in field_names) {
	Contacts[[field]] <- dados[1, field]
}