add base controller
4-value controller for R functional