Function padding fails

[PirateGrunt]

This code is producing an error. We should be gracefully padding the PaymentSeverity function into a list.

set.seed(12345)
dfPolicy <- SimulatePolicies(2, 2001:2005)

dfIBNYR_Fixed <- ClaimsByFirstReport(
    dfPolicy
  , Frequency = FixedHelper(4:1)
  , PaymentSeverity = FixedHelper(250)
  , Lags = 1:4)