我是R的新手,它是软件包系统,刚刚写了我的第一个软件包,目的是与OpenCPU一起使用。
在执行此功能时:
#' Create a PNG which shows interpolated senseMap Data
#'
#' @export
#' @import jsonlite
#' @import sp
#' @import gstat
#' @import rgeos
#' @import maptools
#' @param JSON
inteRidwTest <- function(input){
### JSON to data.frame ###
oSeM_df <- input
### data.frame to spatialPointsDataFrame ###
coordinates(oSeM_df) =~longitude+latitude
### adding CRS to the data ###
proj4string(oSeM_df)="+proj=longlat +datum=WGS84"
project_df=spTransform(oSeM_df, CRS("+proj=longlat +datum=WGS84"))
### creating a bounding box ###
bbox <- bbox(oSeM_df)
### creating a grid based on the bbox ###
x.range <- as.numeric(c(floor(bbox[1]), ceiling(bbox[3]))) # min/max longitude of the interpolation area
y.range <- as.numeric(c(floor(bbox[2]), ceiling(bbox[4])))# min/max latitude of the interpolation area
grd <- expand.grid(x = seq(from = x.range[1], to = x.range[2], by = 0.1), y = seq(from = y.range[1], to = y.range[2], by = 0.1))
coordinates(grd) <- ~x + y
gridded(grd) <- TRUE
grdSp <- as(grd, "SpatialPolygons")
### adding CRS to grid ###
proj4string(grdSp)="+proj=longlat +datum=WGS84"
grd_df=spTransform(grdSp, CRS("+proj=longlat +datum=WGS84"))
### setting up basegrid for the png ###
grdSp.union <- unionSpatialPolygons(grd_df, rep("x", length(slot(grd_df,"polygons"))))
llGRD <- GE_SpatialGrid(grdSp.union)
llGRD_in <- over(llGRD$SG, grdSp.union)
llSGDF <- SpatialGridDataFrame(grid = slot(llGRD$SG,"grid"), proj4string = CRS(proj4string(llGRD$SG)), data = data.frame(in0 = llGRD_in))
llSPix <- as(llSGDF, "SpatialPixelsDataFrame")
### IDW ###
llSPix$pred <- idw(value ~ 1, oSeM_df, llSPix)$var1.pred
return(llSPix$pred)
# ### create the png ###
# png(file = "idw.png", width = llGRD$width,height = llGRD$height, bg = "transparent")
# par(mar = c(0, 0, 0, 0), xaxs = "i", yaxs = "i")
# image(llSPix, "pred", col = bpy.colors(20, alpha=0.7))
# dev.off()
}
输入以下内容:https://gist.githubusercontent.com/mdragunski/643a8557a4a0e37d30a1/raw/02d26c3ce83ee0c0c704b7c53984c640002c331f/oSeM-Data-processed.json
引发以下错误:
找不到OpenCPU错误HTTP 400对象'rgeos'
通话中:get(“ rgeos”,envir = .MAPTOOLS_CACHE)
尝试在本地使用此程序包和功能时会引发相同的错误。如果在我的inteRsense软件包之前安装并添加了rgeos软件包,则它将按预期工作。
错误似乎与我的软件包导入的rgeos和maptools软件包有关,我想更改使用我的软件包时这些软件包的导入顺序。但是我无法在NAMESPACE文件中弄清楚该怎么做:
# Generated by roxygen2: do not edit by hand
export(helloWorld)
export(inteRidw)
export(inteRidwTest)
import(gstat)
import(jsonlite)
import(maptools)
import(rgeos)
import(sp)
所以我想我的问题是:如何在R包中更改NAMESPACE文件?
但我真的很感谢您的帮助。
最佳答案
如何在R包中更改NAMESPACE文件?
要更改R包中的NAMESPACE文件,您必须:
从可用来源(例如maptools package link)下载软件包源* .tar或* .zip。
编辑NAMESPACE文件,并添加一行说明要导入的包或函数/包
编辑DESCRIPTION文件,然后将包添加到“ depends”或“ imports”字段
重新构建包
问题在于更改将是本地的,您必须自己分发修改后的程序包。
在这种情况下,最好的解决方案是与程序包的维护者联系,看看它是否可以解决问题并在cran信息库中更新程序包。
但是,我遇到同样的问题。我收到此错误:
Error in get("rgeos", envir = .MAPTOOLS_CACHE) : object 'rgeos' not found
当我正在开发的程序包调用maptools函数'unionSpatialPolygons'时。我正在处理的软件包同时导入了maptools和rgeos软件包,但仍然失败。如果maptools软件包是由用户手动加载的,则一切正常。
因此,另一个临时解决方案是在加载包后加载maptools包。
更新
我编辑了我正在处理的软件包的Description文件。我将“ maptools”包从“导入”字段移到了“依赖”字段,问题似乎消失了!
关于r - get(“rgeos”,envir = .MAPTOOLS_CACHE)中的R包错误:未找到对象“rgeos”,我们在Stack Overflow上找到一个类似的问题:https://stackoverflow.com/questions/35587111/