Convert replacement in array(data, replacement)

This way instead of saying:

  array(d, UTFS8String("NA"))

I can say:

  array(d, "NA")

A little test for array(x, replacement) conversion

I can do better than copy-paste a function