Создание пользовательского пакета R с пользовательской функцией data.table - PullRequest
Новая
       16

Создание пользовательского пакета R с пользовательской функцией data.table

1 голос
/ 23 июня 2019

Я хотел создать пакет, следуя этим очень понятным и простым инструкциям, https://hilaryparker.com/2014/04/29/writing-an-r-package-from-scratch/ Однако следующая функция работает, когда она не находится внутри пакета, но не работает, когда она находится в пакете.

Чтобы воспроизвести это, выполните следующую команду в папке по умолчанию: Шаг 1 

library("devtools")
library(roxygen2)
create_package("poweR")

Это приведет вас в новое окно и в это окно: Шаг 2

exploit_url.R: Создать и скопировать это в папку R пакета 

#' @import data.table
exploit_url <- function(df, href, target, anchor, new_col) {
  return(df[, (new_col) := paste0("<a href='", df[[href]], "' target='", target, "'>", df[[anchor]], "</a>", "<br>")][, c(1, 3:6, 8)])
}

Затем выполнить следующие команды после создания и копирования/ сохранение файла в папку R пакета: 

library(devtools)
use_package("data.table")
document()
build()
install()

Закройте это окно и вернитесь к окну Шаг 1 

library("poweR")
library(data.table)
DT <- structure(list(cveid = c("CVE-2008-4726", "CVE-2018-18798", "CVE-2001-0791", 
                             "CVE-2005-1823"), EDB_ID = c("6804", "45727", "20893", "25766"
                             ), Type = c("remote", "webapps", "remote", "webapps"), 
                   Platform = c("Windows","PHP", "Windows", "PHP"), 
                   E_DB_Verified = c("Verified", "Waiting verification", "Verified", "Verified"), 
                   E_DB_Published = c("2008-10-22", "2018-10-29", "2001-05-24", "2005-05-30"), 
                   url = c("https://www.exploit-db.com/exploits/6804/","https://www.exploit-db.com/exploits/45727/", 
                           "https://www.exploit-db.com/exploits/20893/", "https://www.exploit-db.com/exploits/25766/")), 
                   class = c("data.table", "data.frame"), row.names = c(NA, -4L))


DT <- exploit_url(DT, "url", '_blank', "E_DB_Verified", "exploitdburl")

Я получаю следующую ошибку: 

Error in exploit_url(DT, "url", "_blank", "E_DB_Verified", "exploitdburl") : 
  could not find function "exploit_url"

Что-то мне не хватает?Любые предложения будут приветствоваться

1 Ответ

1 голос
/ 23 июня 2019

Решено на основе комментариев от @jangorecki.

...