Я пытаюсь адаптировать найденный код здесь , чтобы импортировать данные сотрудников из файла Excel в фрейм данных, а затем использовать функцию as.node из пакета data.tree
.
Это код, который я написал до сих пор
library(data.tree)
library(readxl)
baseframe <- read_excel("Test Emplist.xlsx")
baseframe$pathstring <- paste("CompanyName",
baseframe$LastName,
baseframe$FirstName,
sep = "/")
stafflist <- as.Node(baseframe)
Фрейм данных успешно создается.Ниже представлено представление dput
> dput(head(baseframe))
structure(list(LastName = c("Vasa", "Vasa", "Pras", "Tang", "Sing",
"Vats"), FirstName = c("Evan", "Koma", "Shil", "Hand", "Smri",
"Saur"), pathstring = c("CompanyName/Vasa/Evan", "CompanyName/Vasa/Koma",
"CompanyName/Pras/Shil", "CompanyName/Tang/Hand", "CompanyName/Sing/Smri",
"CompanyName/Vats/Saur")), .Names = c("LastName", "FirstName",
"pathstring"), row.names = c(NA, 6L), class = c("tbl_df", "tbl",
"data.frame"))
, но когда я добираюсь до линии stafflist <- as.Node(baseframe)
, я получаю сообщение об ошибке, говорящее
Ошибка в strsplit (mypath, pathDelimiter, fixed =ИСТИНА:
не символьный аргумент
Я предполагаю, что функция as.node где-то вызывает другую функцию с именем strsplit
. Я попытался запустить функцию сам так, как
strsplit(baseframe$pathstring, "/", fixed = TRUE)
, который работает без проблем. Я не уверен, почему функция as.node выдает ошибку?