r: How to make a function return two plot objects arranged by par()

Question

So I am new to functions and I am trying to create a simple function that returns two plots arranged by par(), like

par(mfr