Using parameterize rather than gsub