我一直在尝试使用googlePolylines包使用R解码加密的Google多边形，这是通过将多边形设置为文本来实现的，但是无法通过导入带有多边形的csv文件来执行相同的过程。
例如，我有以下代码：
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)
这可行，但是为此我必须手动更改加密的多边形。我想做的是导入带有加密多边形（列多边形）的csv（datapolygons.csv），然后对其进行解码。我已经尝试使用以下代码，但是它给我一条错误消息。
datapolygons.csv（多边形的编写与先前编码的多边形相同）
store_id | store_name |多边形
12345 |随机“ j〜thAxdvtMtXmL .....”
library(googlePolylines)
polyfile=read.table('datapolygon.csv', header=TRUE, sep=',')
pol<-levels(droplevels(polyfile$polygon))
polylines<-c(pol)
coordinates<-decode(polylines)
错误消息：rcpp_decode_polyline（polylines，“ coords”）中的错误：basic_string :: at：__n（为363）> = this-> size（）（为363）
任何帮助将不胜感激。谢谢！