Использование setDT внутри функции

Я пишу функцию, которая, между прочим, принуждает ввод к таблице данных.

library(data.table)
df <- data.frame(id = 1:10)
f <- function(df){setDT(df)}
f(df)
df[, temp := 1]

Однако последняя команда выводит следующее предупреждение:

Предупреждающее сообщение: В [.data.table (df, := (temp, 1)): Недействительный .Internal.selfref обнаружены и исправлены, взяв копию целого таблицу, чтобы: = добавить новый столбец по ссылке. При более раннем point, эта таблица данных была скопирована R (или была создана вручную используя структуру() или аналогичную). Избегайте ключевых < -, имен < - и attr < - которые в R в настоящее время (и странно) может скопировать всю таблицу данных. Используйте set * вместо этого следует избегать копирования:? set,? setnames и? setattr. Также, в R <= v3.0.2, список (DT1, DT2) скопировал весь DT1 и DT2 (список R() используется для копирования названных объектов); обновите до R > v3.0.2, если это кусаться. Если это сообщение не помогает, сообщите в службу данных поэтому основная причина может быть исправлена.

Я использую v1.9.3 data.table и R 3.1.1. Означает ли это, что df копируется в какой-то момент? Как избежать этого предупреждения?

Изменить: Код setDT фактически использует NSE. Таким образом, это работает:

df1 <- data.frame(id = 1:10)
f <- function(df){eval(substitute(setDT(df)),parent.frame())}
f(df1)
df1[, temp := 1]

Кажется, я могу делать другие вещи с df внутри функции f, например

df1 <- data.frame(id = 1:10)
f <- function(df){
      eval(substitute(setDT(df)),parent.frame())
      df[, temp := 1]
      }
f(df1)

Правильно ли это сделать?

ОТВЕТЫ

Ответ 1

Отличный вопрос! Предупреждающее сообщение должно указывать:... и фиксироваться с помощью неглубокой копии всей таблицы... Будет исправлено это.

setDT выполняет две вещи:

  • установите класс data.table из data.frame/list
  • используйте alloc.col для перераспределения столбцов (так что := можно использовать напрямую)

И для второго шага требуется неглубокая копия, если вход уже не является data.table. И именно поэтому мы присваиваем значение обратно символу в этой среде (родительский кадр setDT). Но родительский кадр для setDT является вашей функцией f(). Поэтому setDT(df) внутри вашей функции прошел гладко, но df, который находится в глобальной среде, изменит класс, а не перераспределение (поскольку мелкая копия разорвала ссылку).

И на следующем шаге := обнаруживает, что и мелкие копии еще раз перераспределяют.

Идея заключается в том, чтобы использовать setDT для преобразования в data.tables перед тем, как предоставить ее функции. Но я хотел бы, чтобы эти случаи были разрешены (посмотрим).

Спасибо, куча!