There should be a different as.character.factor

So that at least the names attribute is preserved:

```
> as.character(as.factor(c(a=1, b=2)))
[1] "1" "2"
> as.factor(c(a=1, b=2))
a b 
1 2 
Levels: 1 2
```
