CREATE FUNCTION triggerrangevalidation() RETURNS OPAQUE AS '' LANGUAGE 'pl_R';

CREATE TRIGGER range_validation_trigger BEFORE INSERT OR UPDATE ON FLEA
  FOR EACH ROW EXECUTE PROCEDURE triggerrangevalidation ( 'list(joint1_width=c(100,200))');