# Create connector
cnt <- Connector$new()
cnt
# Standard error message if no method is implemented
cnt |>
read_cnt("fake_data") |>
try()
# Connection with extra class
cnt_my_class <- Connector$new(extra_class = "my_class")
cnt_my_class
# Custom method for the extra class
read_cnt.my_class <- function(connector_object) "Hello!"
registerS3method("read_cnt", "my_class", "read_cnt.my_class")
cnt_my_class
read_cnt(cnt_my_class)
Run the code above in your browser using DataLab