Я пытаюсь запустить этот скрипт как функцию oop, так как у меня в папке более 200 файлов, и я пытаюсь создать один файл CSV в конце, перечисляя все данные, которые мне нужно извлечь.
Я пробовал разные способы запуска этого в al oop например, В R, как извлечь два значения из файла XML, зациклить 5603 файла и записать в таблицу
Всякий раз, когда я пробую эти разные варианты, я получаю сообщения об ошибках типа:
Ошибка: XML содержимое не похоже на XML или в доступе отказано.
Однако, когда я запускаю код, выбирая только один файл, он работает нормально. Эти ошибки появляются только при попытке преобразовать его в функцию al oop для нескольких файлов в одной папке.
Вот исходный код, используемый для одного файла:
doc<-xmlParse("//file/path/32460004.xml")
xmldf <- xmlToDataFrame(nodes = getNodeSet(doc, "//BatRecord"))
df1 <- data.frame(xmldf)
df1 <- separate(df1, xmldf.DateTime, into = c("Date", "Time"), sep = " ")
df1$Lat <- substr(xmldf$GPS,4,12)
df1$Long <- substr(xmldf$GPS,13,25)
df_final <- data.frame(df1$xmldf.Filename, df1$Date, df1$Time, df1$xmldf.Duration, df1$xmldf.Temperature, df1$Lat, df1$Long)
colnames(df_final) <- c("Filename", "Date", "Time", "Call Duration", "Temperature", "Lat", "Long")
write.csv(df_final, "//file/path/test_file.csv")
Вот ссылка на некоторые примеры файлов:
https://drive.google.com/drive/folders/1ZvmOEWhzlWHRl2GxZrbYY9y7YSZ5j9Fj?usp=sharing
Любая помощь приветствуется.
Вот детали моей версии:
platform x86_64-w64-mingw32
arch x86_64
os mingw32
system x86_64, mingw32
status
major 3
minor 6.3
year 2020
month 02
day 29
svn rev 77875
language R
version.string R version 3.6.3 (2020-02-29)
nickname Holding the Windsock