Improve output of as.character.formula.R
Fix generic lhs<-