R/jScaffolding.R

In mcfanda/qENDOj: Endogenity analysis based on 2SLS

Scaffold <- R6::R6Class("Scaffold",
                          cloneable=FALSE,
                          class=FALSE,
                          public=list(
                            options=NULL,
                            dispatcher=NULL,
                            initialize=function(options,dispatcher) {
                              
                              self$options<-options
                              self$dispatcher<-dispatcher
                              
                            },
                            option=function(val,spec=NULL) {
                              
                              res<-hasName(self$options,val)
                              if (res) {
                                if (is.logical(self$options[[val]]))
                                  res<-self$options[[val]]
                                else
                                  res<-is.something(self$options[[val]])
                                
                                
                                if (!is.null(spec))
                                  res<-any(spec %in% self$options[[val]])
                              }
                              res      
                              
                            }
                            
                            
                          )
) ## end of class