处理R函数

我已经编码了

canada_raw <- readOGR(dsn = "data/gcd_000b11a_e", 
                      layer = "gcd_000b11a_e", 
                      use_iconv=TRUE, 
                      encoding="CP1250")


canada_raw_json <- geojson_json(canada_raw)
canada_raw_sim <- ms_simplify(canada_raw_json)

---

我认为你的实际问题与字符编码有关，这个问题已经被提出/解决了。我无法复制您的错误消息

# set encoding
options(encoding = "UTF-8")

# packages
if (("geojsonio" %in% rownames(installed.packages()))==FALSE) install.packages("geojsonio"); library(geojsonio)
if (("geojsonlint" %in% rownames(installed.packages()))==FALSE) install.packages("geojsonlint"); library(geojsonlint)
if (("devtools" %in% rownames(installed.packages()))==FALSE) install.packages("devtools"); library(devtools)
if (("rgdal" %in% rownames(installed.packages()))==FALSE) install.packages("rgdal"); library(rgdal)
install_github("ateucher/rmapshaper")

# grab the file from "Statistics Canada"
url<-"http://www12.statcan.gc.ca/census-recensement/2011/geo/bound-limit/files-fichiers/gcd_000b11a_e.zip"
n<-basename(url)
download.file(url,
              destfile = n)
unzip(n,exdir = substr(n,1,nchar(n)-4))

canada_raw<-readOGR(file.choose(),use_iconv = TRUE,encoding = "CP1250")
canada_raw_json <- geojsonio::geojson_json(canada_raw)
canada_raw_sim <- rmapshaper::ms_simplify(canada_raw_json)

#设置编码
选项（编码=“UTF-8”）
#包裹
如果（（（“geojsonio”%in%rownames（installed.packages（））==FALSE）install.packages（“geojsonio”）；图书馆（geojsonio）
如果（（%rownames（installed.packages（））中的（“geojsonlint”%）==FALSE）install.packages（“geojsonlint”）；图书馆（geojsonlint）
如果（（（“devtools”%in%rownames（installed.packages（））==FALSE）install.packages（“devtools”）；图书馆（devtools）
如果（（%rownames（installed.packages（））中的（“rgdal”%）=FALSE）install.packages（“rgdal”）；图书馆（rgdal）
安装_github（“ateucher/rmapshaper”）
#从“加拿大统计局”获取文件
URL我们无法复制此内容，因为我们没有您的数据文件，您没有包含完整的代码，并且您没有说明错误发生的时间。是第一个命令，第二个还是第三个？
# set encoding
options(encoding = "UTF-8")

# packages
if (("geojsonio" %in% rownames(installed.packages()))==FALSE) install.packages("geojsonio"); library(geojsonio)
if (("geojsonlint" %in% rownames(installed.packages()))==FALSE) install.packages("geojsonlint"); library(geojsonlint)
if (("devtools" %in% rownames(installed.packages()))==FALSE) install.packages("devtools"); library(devtools)
if (("rgdal" %in% rownames(installed.packages()))==FALSE) install.packages("rgdal"); library(rgdal)
install_github("ateucher/rmapshaper")

# grab the file from "Statistics Canada"
url<-"http://www12.statcan.gc.ca/census-recensement/2011/geo/bound-limit/files-fichiers/gcd_000b11a_e.zip"
n<-basename(url)
download.file(url,
              destfile = n)
unzip(n,exdir = substr(n,1,nchar(n)-4))

canada_raw<-readOGR(file.choose(),use_iconv = TRUE,encoding = "CP1250")
canada_raw_json <- geojsonio::geojson_json(canada_raw)
canada_raw_sim <- rmapshaper::ms_simplify(canada_raw_json)