R6: सुपरक्लास के निजी तरीकों तक पहुंचना

इसे लागू नहीं करना एक जानबूझकर पसंद की तरह लगता है (मैंने super$private$foo() की कोशिश की जो काम नहीं करता है) और इसलिए मुझे लगता है कि यह सामान्य ओओपी सिद्धांतों के खिलाफ है कि उप-वर्ग अपने सुपरक्लास (एस) के निजी तरीकों तक पहुंचने में सक्षम हैं।

लेकिन क्या वाकई यह इतनी बुरी बात होगी? आखिरकार, विरासत एक निश्चित वर्ग की सुविधाओं का विस्तार करने का एक व्यवस्थित तरीका है, जबकि पहले से मौजूद लोगों का पुन: उपयोग कर रहा है। लेकिन अगर वर्ग के सभी निजी तरीकों का विस्तार किया जा रहा है तो उपवर्ग के लिए "खो" / पहुंच योग्य नहीं है, तो क्या इसका परिणाम अनावश्यक कोड दोहराव नहीं है (इस अर्थ में कि आवश्यक निजी विधियों को _again_ को निजी विधियों के रूप में परिभाषित करना होगा। उपवर्ग)?

सिर्फ मैं ही हो सकता हूं, लेकिन मैं अपने सुपरक्लास से उप-वर्ग कॉलिंग विधियों को कुछ "आंतरिक" के रूप में मानता हूं, जैसा कि एक निश्चित वर्ग उदाहरण का उपयोग कर क्लाइंट एप्लिकेशन (जिस स्थिति में आप केवल सार्वजनिक तरीकों को चाहते हैं) निश्चित रूप से सुलभ)।

मान लीजिए कि A , bar() में एक शुद्ध आंतरिक चरित्र है और कुछ फ़ील्ड मानों की वैधता की जांच करता है ताकि आप इसे सार्वजनिक नहीं करना चाहेंगे। लेकिन इस तरह यह B लिए सुलभ नहीं है और इस प्रकार मुझे B में ठीक उसी विधि को फिर से परिभाषित करने की आवश्यकता होगी।

require("R6")
A <- R6Class(
  classname = "A",
  public = list(
    foo = function() {
      "foo"
    }
  ),
  private = list(
    bar = function() {
      "bar"
    }
  )
)

B <- R6Class(
  classname = "B",
  inherit = A,
  public = list(
    foobar = function() {
      print(super$foo())
      print(super$private$bar())
    }
  )
)

x <- B$new()
x$foobar()