as.character.frmt_when() doesn't retain quotes on strings

[bzkrouse]

frmt_when( 
  "<1"~ "<1",
  "TRUE" ~ frmt("(xx)")
) %>% 
  as.character()

returns: "frmt_when('<1' ~ <1, 'TRUE' ~ frmt('(xx)'))"

desired result: "frmt_when('<1' ~ '<1', 'TRUE' ~ frmt('(xx)'))"

[bzkrouse]

also
frmt_when('==100' ~ '', '==0' ~'' , 'TRUE' ~ frmt('(xx.x %)'))
produces
frmt_when('==100' ~ , '==0' ~ , 'TRUE' ~ frmt('(xx.x %)'))