R中的Coerce Class

Question

使用md5语句，我创建了一个代码 声明class(code)返回：[1] "hash" "md5"。当我尝试在'if-else-then'语句中使用它时，R产生一个警告：1：

    In if (class(code) == "character") { :  the condition has length > 1 and only the first element will be used 

我试图强制代码只使用

来创建“哈希”类

code <- as(code, Class = "hash") 

但是类（代码）仍然返回[1]“hash”“md5”。

如何在没有警告的情况下测试课程？

本