问题
我正在使用read_delim
函数读入很多csv文件(非逗号分隔)。这会产生警告,因为某些列具有相同的名称。我不想编辑原始文件,当我用read_delim
读取它时,我无法更改列名。所以这些警告是不可避免的。但是,我想测试这些是生成的唯一警告,并且没有其他警告,例如错误的列规范等。
我能想到的就是我自己
我可以在运行代码后用myWarnings <- warnings()
捕获警告,但我不确定如何使用它来测试任何东西。问题是myWarnings
是一个类warnings
的列表,我不知道如何测试。例如myWarnings[[1]]
生成NULL
,所以我不能测试每个元素的元素。它也不是字符向量而是列表。
通常的方法是在函数运行时捕获警告。例如testthat::expect_warning(read_delim(...))
,但为了做到这一点,我必须运行我的代码两次:一次用于结果,一次用于测试。我不想这样做,因为它需要花费太多时间(并且不是一种非常干净的方式来做事)。
代码
# Pseudocode because you don't have my input files anyway
library(tidyverse)
myInputs <- list.files("myFolder", pattern = ".csv$")
myColTypes <- cols(col1 = col_character(), col2 = col_logical(), etc.)
myData <- map(myInputs, read_delim, delim = "|", col_types = myColTypes)
之后R在控制台告诉我:There were 36 warnings (use warnings() to see them)
。这些警告中的每一个都写着:Duplicated column names deduplicated: 'col' => 'col_1' [32], 'col' => 'col_2' [54], 'col' => 'col_3' [211]
。
我希望能够做到这样的事情:
# Again pseudocode, because this is what I would like but it doesn't work.
myWarnings <- warnings()
testthat::expect_equal(
myWarnings,
warning("Duplicated column names deduplicated: 'col' => 'col_1' [32], 'col' => 'col_2' [54], 'col' => 'col_3' [211]"
)
你可以使用testthat::expect_named()
。为什么?您从warnings()
获得的列表是一个命名列表,其中的名称是警告消息。我们来看一个例子:
for ( i in 1:10 ) {
x <- log(-i)
}
# Warning messages:
# 1: In log(-i) : NaNs produced
# ...
# 10: In log(-i) : NaNs produced
w <- warnings()
str(w)
# List of 10
# $ NaNs produced: language log(-i)
# ...
# $ NaNs produced: language log(-i)
# - attr(*, "dots")= list()
# - attr(*, "class")= chr "warnings"
names(w)
# [1] "NaNs produced" "NaNs produced" "NaNs produced" "NaNs produced"
# [5] "NaNs produced" "NaNs produced" "NaNs produced" "NaNs produced"
# [9] "NaNs produced" "NaNs produced"
然后我们可以使用testthat::expect_named()
来测试警告消息的相等性:
testthat::expect_named(w, rep("NaNs produced", 10))