Move CleanAttrTable function to the R folder