R函数未正确使用传入参数，输出异常求问题排查

你的代码有两处问题导致输出不符合预期：

1. print()与paste()的参数误用 #

你当前的打印语句：

print(paste("The result for the operation is: "), operation)

这里operation被传递给了print()的第二个参数（该参数控制是否输出引号，默认TRUE），而不是paste()的拼接参数。paste()需要将所有要合并的内容放在自身的括号内，才能把提示文本和计算结果拼接成完整字符串。

2. 字符串长度判断逻辑错误 #

你用length(text1) == length(text2)判断两个字符串是否长度相等，但length()对单个字符串返回的是元素个数（单个字符串的元素个数为1），并非字符串的字符数量。如果要判断两个字符串的字符长度是否一致，应该用nchar()函数。比如你传入的"Hello"和"World!"，字符数分别是5和6，但length()返回都是1，所以会错误输出"Equal"。

修复后的完整代码 #

test_function <- function(text1, text2, number1) {
    # 用nchar判断字符串的实际字符长度
    if (nchar(text1) == nchar(text2)) {
        print("Equal")
    } else {
        print("Not equal")
    }
    operation <- nchar(text1) + number1
    # 正确将operation传入paste完成拼接后再打印
    print(paste("The result for the operation is: ", operation))
}

x <- "Hello"
y <- "World!"
z <- 10

test_function(x, y, z)

修复后的输出 #

[1] "Not equal"
[1] "The result for the operation is:  15"

内容的提问来源于stack exchange，提问作者DJC78