missing function IdToName

Line 34 of server.R has an undefined idToName variable

`colnames(data)<-as.vector(sapply(colnames(data),idToName))`

App seems to run by commenting it out (and by making the (rules,filters) --> (filters,rules) switch as the other Issue indicates

Thanks so much for your hard work on this!