Não vou ter como testar no momento, mas você poderia tentar definir o encoding na abertura da conexão (zz). A ideia é passar essa informação para o correto funcionamento da função readChar() quando ela é acionada.

A alteração seria na primeira linha da função read.map() definida no código.

zz=file(filename,"rb", encoding="latin-1")

ou