#r #rodbc #r6
Вопрос:
Здравствуйте, я хотел бы назначить DbConnection классу R6, но это не удается.
LastProfilZdb lt;- R6Class( classname = "LastProfilZdb", public = list( name = NULL, zp = NULL, data = NULL , zp_id = function() { pool::poolWithTransaction(self$db_server, function(conn){ DBI::dbGetQuery(conn, paste0("SELECT ZP_ID FROM ZP_ID WHERE LP_ZP = '", self$zaehlpunkt, "' OR ZP_NAME_SAP = '", self$zaehlpunkt, "'")) }) }, #.... #.... initialize = function(){ message("Init Data Base Connection") # self$db_server lt;- pool::dbPool(drv = odbc::odbc(), dsn = "Oracle", schema = "schema" ) }, finalize = function() { message("Closing Data Base Connection") pool::poolClose(self$db_server) } ), private = list( # db Connection is stored in the calss so we don't need to care any more # This way, input data can be collected in a neat way, # and stored inside our object. db_server = NULL ) ) Это завершается ошибкой: Ошибка в self$db_server
Что я могу сделать?