종료하기

R에서 S3와 R6로 배우는 Object-Oriented Programming

Richie Cotton

Data Evangelist at DataCamp

ch5_3-Shut-it-down.003.png

ch5_3-Shut-it-down.004.png

initialize()는 시작을 커스터마이즈합니다

finalize()는 정리를 커스터마이즈합니다

thing_factory <- R6Class(
  "Thing",
  private = list(
    ..a_field = 123
  ),
  public = list(

    initialize = function(a_field) {
      if(!missing(a_field)) {
        private$a_field = a_field
      }
    },

    finalize = function() {
      message("Finalizing the Thing")
    }

  )
)

a_thing <- thing_factory$new()

rm(a_thing)

gc()

Finalizing the Thing
         used (Mb) gc trigger (Mb) max used (Mb)
Ncells 443079 23.7     750400 40.1   592000 31.7
Vcells 718499  5.5    1308461 10.0  1092342  8.4

library(RSQLite)
database_manager_factory <- R6Class(
  "DatabaseManager",
  private = list(

   conn = NULL

  ),
  public = list(

    initialize = function(a_field) {
      private$conn <- dbConnect("some-database.sqlite")
    },

    finalize = function() {
      dbDisconnect(private$conn)
    }

  )
)

요약

finalize()는 R6 객체의 정리를 수행합니다
데이터베이스 작업에 유용합니다
가비지 컬렉션 중에 호출됩니다

Ayo berlatih!

R에서 S3와 R6로 배우는 Object-Oriented Programming