Importar csv a R, extraer polígono y decodificarlo con paquetes de googlePolylines

He estado tratando de decodificar polígonos de Google encriptados con R usando el paquete googlePolylines que he logrado configurando el polígono como texto pero no puedo hacer el mismo procedimiento importando un archivo csv con los polígonos.

Por ejemplo, tengo el siguiente código:

library(googlePolylines)
pol<-"j~thAxdvtMtXmL|LgCpKxCjQzD~T`GzXrAlMePnDsKpVoF`QgBnNoM~IcA`JiGnd@iYvZuLzKkSlH_d@wDef@iJwFyZfUmc@hCsa@N{\\|SeCzOaFgQwD{SaPiC|WwBpPr@bGsG{FeQxEkOtXa@dXgFtHyJoIiGui@NqaAvFuRyQxEia@he@u_@b\\og@dHuZyJaX_d@zK_Ua@eBwMq`A}AyRcTkKce@c]uWeS{DuRzZtCh]|b@zGuCbm@fUdTsLbS__@wBoTlu@zVbm@dc@l]oExn@gf@vUgPbAkL|HtCnXi@zKtRvc@CzPxBpLxAnEvFvDpPx^cFlBTh@??Dn@@f@~G|QFH~\\gMj@Su@}@"
polylines<-c(pol)
coordinates<-decode(polylines)

Esto funciona pero para esto tengo que cambiar manualmente el polígono encriptado. Lo que quiero hacer es importar un csv (datapolygons.csv) con el polígono encriptado (polígono de columna) y luego decodificarlo. He probado con el siguiente código pero me da un mensaje de error.

datapolygons.csv (el polígono se escribe igual que el polígono codificado anterior)

store_id | nombre_tienda | polígono

12345 | AL AZAR | “j~thAxdvtMtXmL…”

library(googlePolylines)
polyfile=read.table('datapolygon.csv', header=TRUE, sep=',')
pol<-levels(droplevels(polyfile$polygon))
polylines<-c(pol)
coordinates<-decode(polylines)

Mensaje de error: Error en rcpp_decode_polyline(polilíneas, “coords”) : basic_string::at: __n (que es 363) >= this->size() (que es 363)

Cualquier ayuda sería muy apreciada. ¡Gracias!

¿Es posible que la cadena esté dañada en su .csv ¿expediente? ¿Quizás cuando hiciste el data.frame para escribir? La corrupción parece ocurrir durante la conversión a factor().

No tengo problemas para escribirlo y volver a entrar:

polyfile <- data.frame(store_address_id = 12345, 
                       store_name = "RANDOM",
                       polygon = "j~thAxdvtMtXmL|LgCpKxCjQzD~T`GzXrAlMePnDsKpVoF`QgBnNoM~IcA`JiGnd@iYvZuLzKkSlH_d@wDef@iJwFyZfUmc@hCsa@N{\\|SeCzOaFgQwD{SaPiC|WwBpPr@bGsG{FeQxEkOtXa@dXgFtHyJoIiGui@NqaAvFuRyQxEia@he@u_@b\\og@dHuZyJaX_d@zK_Ua@eBwMq`A}AyRcTkKce@c]uWeS{DuRzZtCh]|b@zGuCbm@fUdTsLbS__@wBoTlu@zVbm@dc@l]oExn@gf@vUgPbAkL|HtCnXi@zKtRvc@CzPxBpLxAnEvFvDpPx^cFlBTh@??Dn@@f@~G|QFH~\\gMj@Su@}@",
                       stringsAsFactors = FALSE)

write.csv(file="~/test.csv",polyfile)
polyfile2 <- read.table('~/test.csv', header=TRUE, sep=',',stringsAsFactors = FALSE)
decode(polyfile2$polygon)
[[1]]
         lat       lon
1  -12.07286 -76.95965
2  -12.07697 -76.95750
3  -12.07920 -76.95682
4  -12.08121 -76.95759
5  -12.08415 -76.95853
6  -12.08767 -76.95982
7  -12.09181 -76.96024
8  -12.09412 -76.95749
9  -12.09500 -76.95547
10 -12.09877 -76.95427