On 24/03/2021 9:06 a.m., Jeremie Juste wrote:
Hello,
I was wondering how to call a function outside a setRefClass but
inside
the package without export it. Let me explain by means of an example.
There are no scoping issues here: Your initialize method can see all
local functions in the package, including remove_if_all_NA. But
you've got a typo: you called remove_if_all_na instead. NA is not
the same as na!
Duncan Murdoch
- in the file test-package/R/test.R
##' some description
##'
##' some details
##' @title test
##' @return sideeffect
##' @author Jeremie Juste
##' @export test
##' @import data.table
test <- setRefClass("test",
list(dt="data.table"))
test$methods(
initialize = function(x){
dt <<- remove_if_all_na(x[,abc:=1])
}
)
##' remove rows for which all values are NA
##'
##' @title remove_if_all_NA
##' @param dt
##' @return dt
##' @author Jeremie Juste
remove_if_all_NA <- function(dt) {
cn <- colnames(dt)
dt[!dt[NA],on=cn]
}
Here when I build and install the package test-package, if I don't
export
remove_if_all_NA
##' remove rows for which all values are NA
##'
##' @title remove_if_all_NA
##' @param dt
##' @return dt
##' @author Jeremie Juste
##' @export
remove_if_all_NA <- function(dt) {
cn <- colnames(dt)
dt[!dt[NA],on=cn]
}
The package cannot use it.
library(test-package)
library(data.table)
aa <- data.table(a=1:10,b=letters[1:10])
b <- test(aa)
Error in remove_if_all_na(x[, `:=`(abc, 1)]) :
could not find function "remove_if_all_na"
Do you have any recommendations? The official documentation for
setRefClass is a bit thin for me but I wanted to use a tools that is going to stay. Any tip is
welcome.
Best regards,
Jeremie