getAttributes fails for complex data packages

[juddpatterson]

getAttributes fails if a data package has more than one csv/xml combo.

Example:

getDataPackage(2285123, Secure = FALSE)
getAttributes(2285123, "csv", "eml")
Error: 'data/raw/2285123/c("HY2019_SFCN_diatoms_TP_metadata.xml", "HY2019_SFCN_vegetation_metadata.xml")' does not exist in current working directory ('C:/Judd/R/DSTools-master/DSTools-master').

The two xml files referenced above do exist in that location, but the combined vector of "both at once" produces the error. The function needs to be improved to handle more than one file check or a parameter added so the function only attempts to operate on a single data file.