R-object of type 'closure' is not subsettable