我有一个包含多个具有相同结构的 xml 文件的列表。其中一些有结构错误，因此无法读取，我无法手动控制它们，因为文件太多。我知道我需要暗示 try 或 trycatch 函数，我试图理解它们，但我不理解如何在我的案例中谨慎地使用它们。为了简化示例，我只想将它们全部转换为 csv。
library(XML)
k <- 1
Initial.files<- list.files("/My/Initial/Folder")
for(i in initial.files){
data<-dataTable(xmlToDataFrame(xmlParse(i)))
write.csv(data, file = paste("data",(k)".csv"))
k <- k+1
}
我得到的错误通常是这样的:
Start tag expected, '<' not found
Error in xmlToDataFrame(xmlParse(i)) :
error in evaluation the argument 'doc' in selecting a method for function 'xmlToDataFrame': Error 1: Start tag expected, '<' not found
为了处理我的问题，我必须重写我的第 5 行代码(我知道这是错误的):
data<- if(try(dataTable(xmlToDataFrame(xmlParse(i)))!= "try-error")
else{ haven't looked close to this because i didn't got that far...}...
我希望它读取文件并给我一个无法读取的文件路径列表。
xml文件的结构如下:
<ROWSET>
<ROW>
<line1>asdf</line1>
<line2>ghjk</line2>
</ROW>
</ROWSET>
最佳答案
这里是一个tryCatch的例子。当然，您可以用您的函数替换 read.table，它应该仍然有效。
第一个会捕获任何错误并只返回有错误的文件路径(我创建了两个测试文件——一个可以被 read.table 读取，另一个会报错)
f <- function(path = "~/desktop/test", ...) {
lf <- list.files(path = path, ...)
l <- lapply(lf, function(x) {
tryCatch(read.table(x, header = TRUE),
error = function(e) x)
})
setNames(l, basename(lf))
}
f(full.names = TRUE)
# $cool_test.txt
# cool test file
# 1 1 2 3
#
# $notcool_test.txt
# [1] "/Users/rawr/desktop/test/notcool_test.txt"
tryCatch 更强大，可以节省你很多时间
如果您希望以不同方式处理它们，您可以grep 特定文本的错误和/或警告。例如，在这里，如果我尝试读取的文件不存在，我想要一条消息。我想要那些存在但由于某种原因无法读取的文件路径。
f2 <- function(path = "~/desktop/test", ..., lf) {
lf <- if (!missing(lf)) lf else list.files(path = path, ...)
l <- lapply(lf, function(x) {
tryCatch(read.table(x, header = TRUE),
warning = function(w) if (grepl('No such file', w)) {
sprintf('%s does not exist', x)
} else sprintf('Some other warning for %s', x),
error = function(e) if (grepl('Error in scan', e)) {
message(sprintf('Check format of %s', x))
x
} else message(sprintf('Some other error for %s', x)))
})
setNames(l, basename(lf))
}
我添加了一个新参数，这样我就可以传递一个文件路径列表，而不是显示它如何处理不存在的文件:
lf <- c("/Users/rawr/desktop/test/cool_test.txt",
"/Users/rawr/desktop/test/notcool_test.txt",
"/Users/rawr/desktop/test/file_does_not_exist.txt")
(out <- f2(lf = lf))
# Check format of /Users/rawr/desktop/test/notcool_test.txt
# $cool_test.txt
# cool test file
# 1 1 2 3
#
# $notcool_test.txt
# [1] "/Users/rawr/desktop/test/notcool_test.txt"
#
# $file_does_not_exist.txt
# [1] "/Users/rawr/desktop/test/file_does_not_exist.txt does not exist"
现在您有了一个可以包含数据框、文件路径或其他消息的列表。可以过滤掉数据框，写法有很多种，这里介绍两种:
lapply(Filter(is.data.frame, out), function(x) do stuff)
for (ii in out)
if (is.data.frame(ii)) write.csv(ii) else print('not a data frame')
关于xml - 读取xml文件时如何处理错误R，我们在Stack Overflow上找到一个类似的问题： https://stackoverflow.com/questions/31115045/
我有一个Ruby程序，它使用rubyzip压缩XML文件的目录树。gem。我的问题是文件开始变得很重，我想提高压缩级别，因为压缩时间不是问题。我在rubyzipdocumentation中找不到一种为创建的ZIP文件指定压缩级别的方法。有人知道如何更改此设置吗？是否有另一个允许指定压缩级别的Ruby库？ 最佳答案 这是我通过查看rubyzip内部创建的代码。level=Zlib::BEST_COMPRESSIONZip::ZipOutputStream.open(zip_file)do|zip|Dir.glob("**/*")d
我试图在一个项目中使用rake，如果我把所有东西都放到Rakefile中，它会很大并且很难读取/找到东西，所以我试着将每个命名空间放在lib/rake中它自己的文件中，我添加了这个到我的rake文件的顶部:Dir['#{File.dirname(__FILE__)}/lib/rake/*.rake'].map{|f|requiref}它加载文件没问题，但没有任务。我现在只有一个.rake文件作为测试，名为“servers.rake”，它看起来像这样:namespace:serverdotask:testdoputs"test"endend所以当我运行rakeserver:testid时
我的目标是转换表单输入，例如“100兆字节”或“1GB”，并将其转换为我可以存储在数据库中的文件大小(以千字节为单位)。目前，我有这个:defquota_convert@regex=/([0-9]+)(.*)s/@sizes=%w{kilobytemegabytegigabyte}m=self.quota.match(@regex)if@sizes.include?m[2]eval("self.quota=#{m[1]}.#{m[2]}")endend这有效，但前提是输入是倍数(“gigabytes”，而不是“gigabyte”)并且由于使用了eval看起来疯狂不安全。所以，功能正常，
Rails2.3可以选择随时使用RouteSet#add_configuration_file添加更多路由。是否可以在Rails3项目中做同样的事情？ 最佳答案 在config/application.rb中:config.paths.config.routes在Rails3.2(也可能是Rails3.1)中，使用:config.paths["config/routes"] 关于ruby-on-rails-Rails3中的多个路由文件，我们在StackOverflow上找到一个类似的问题
对于具有离线功能的智能手机应用程序，我正在为Xml文件创建单向文本同步。我希望我的服务器将增量/差异(例如GNU差异补丁)发送到目标设备。这是计划:Time=0Server:hasversion_1ofXmlfile(~800kiB)Client:hasversion_1ofXmlfile(~800kiB)Time=1Server:hasversion_1andversion_2ofXmlfile(each~800kiB)computesdeltaoftheseversions(=patch)(~10kiB)sendspatchtoClient(~10kiBtransferred)Cl
大约一年前，我决定确保每个包含非唯一文本的Flash通知都将从模块中的方法中获取文本。我这样做的最初原因是为了避免一遍又一遍地输入相同的字符串。如果我想更改措辞，我可以在一个地方轻松完成，而且一遍又一遍地重复同一件事而出现拼写错误的可能性也会降低。我最终得到的是这样的:moduleMessagesdefformat_error_messages(errors)errors.map{|attribute,message|"Error:#{attribute.to_s.titleize}#{message}."}enddeferror_message_could_not_find(obje
我正在寻找执行以下操作的正确语法(在Perl、Shell或Ruby中):#variabletoaccessthedatalinesappendedasafileEND_OF_SCRIPT_MARKERrawdatastartshereanditcontinues. 最佳答案 Perl用__DATA__做这个:#!/usr/bin/perlusestrict;usewarnings;while(){print;}__DATA__Texttoprintgoeshere 关于ruby-如何将脚
使用带有Rails插件的vim，您可以创建一个迁移文件，然后一次性打开该文件吗？textmate也可以这样吗？ 最佳答案 你可以使用rails.vim然后做类似的事情::Rgeneratemigratonadd_foo_to_bar插件将打开迁移生成的文件，这正是您想要的。我不能代表textmate。 关于ruby-使用VimRails，您可以创建一个新的迁移文件并一次性打开它吗？，我们在StackOverflow上找到一个类似的问题： https://sta
我有一个对象has_many应呈现为xml的子对象。这不是问题。我的问题是我创建了一个Hash包含此数据，就像解析器需要它一样。但是rails自动将整个文件包含在.........我需要摆脱type="array"和我该如何处理？我没有在文档中找到任何内容。 最佳答案 我遇到了同样的问题；这是我的XML:我在用这个:entries.to_xml将散列数据转换为XML，但这会将条目的数据包装到中所以我修改了:entries.to_xml(root:"Contacts")但这仍然将转换后的XML包装在“联系人”中，将我的XML代码修改为
好的，所以我的目标是轻松地将一些数据保存到磁盘以备后用。您如何简单地写入然后读取一个对象？所以如果我有一个简单的类classCattr_accessor:a,:bdefinitialize(a,b)@a,@b=a,bendend所以如果我从中非常快地制作一个objobj=C.new("foo","bar")#justgaveitsomerandomvalues然后我可以把它变成一个kindaidstring=obj.to_s#whichreturns""我终于可以将此字符串打印到文件或其他内容中。我的问题是，我该如何再次将这个id变回一个对象？我知道我可以自己挑选信息并制作一个接受该信