Fix typo in reference to metadata attribute

[brookslogan]

There appears to be a typo accessing the metadata attribute here; alternatives are:

attributes(x)$metadata
attr(x, "metadata")

[ryantibs]

I'm not sure when this was fixed but I did notice it at some point and it's fixed now. Sorry for not tracking this more rigorously!