R删除特殊字符和重复下划线

我有一个包含空格和其他标点字符的数据集。我试图用“_”替换空格和特殊字符。这会创建多个“_”串在一起的斑点,因此我也希望使用下面描述的函数来删除这些斑点 here

removeSpace <- function(x){
    class1 <- class(x)
    x <- as.character(x)
    x <- gsub(" |&|-|/|'|(|)",'_', x) # convert special characters to _
    x <- gsub("([_])\\1+","\\1", x)   # convert multiple _ to single _

    if(class1 == 'character'){
        return(x)
    }
    if(class1 == 'factor'){
        return(as.factor(x))
    }
}

问题不是删除空格并用“_”替换,而是用“_”(即“test”->“t\u e\u s\u t”)替换其他字符

我做错了什么?