我在下面有一些代码。现在我有一种方法可以在GETAPI
调用之后将函数lOriginal <- GETAPI
放在代码的最后?
据我了解,如果在GETAPI()
调用之前尚未评估GETAPI函数,则R不会在文档中搜索它。但为什么不呢?
如果我将GETAPI函数放在代码的最后,我会得到错误:
无法找到GETAPI功能
代码
library(ggplot2)
library(digest)
library(stringi)
library(jsonlite)
library(plyr)
#'@export
#'
query <- function(area = "stockholm", type="lägenhet", sincesold = "", FUN = "", limit = 500, offset = 0) {
GETAPI <- function(area = "stockholm", type="lägenhet", sincesold = "", FUN = "", limit = 500, offset = 0) {... }
#raw data fetch + add new columns
lOriginal <- GETAPI(area, type, sincesold, FUN, limit, offset)
lOriginal <- lOriginal[order(lOriginal$publish, decreasing = TRUE, na.last = TRUE), ]
row.names(lOriginal) <- NULL
lOriginal$AreaSize <- round_any(lOriginal$livingArea, 10, floor)
lOriginal$PriceDiff <- lOriginal$soldPrice - lOriginal$listPrice
#Reclass
lOriginal$AreaSize <- as.factor(lOriginal$AreaSize)
lOriginal$published <- as.Date(lOriginal$published)
lOriginal$soldDate <- as.Date(lOriginal$soldDate)
return (lOriginal)
}