R：在功能中使用字符作为参数

Question

我是这里的新手，我对R的使用了解不多。我找不到当前问题的解决方案：将字符（路径）用作函数的参数。

Path <- "C:/...../"

foo <-function(Path){
       Driver  <- "Driver={Microsoft Access Driver (*.mdb,*.accdb)};DBQ=Path"
       connect <- odbcDriverConnect(Driver)
       return(connect)
}

我的问题是，路径将在函数中用引号替换。 至少我的函数具有以下格式。

...DBQ="C:/..../""

我试图用noquote或cat删除引号来解决此问题，但这没有帮助。

预先感谢您为R的初学者提供帮助:)

Answer 1

您可以使用sprintf()插入Path 。

Path <- "C:/...../"
sprintf("Driver={Microsoft Access Driver (*.mdb,*.accdb)};DBQ=\"%s\"", Path)
# [1] "Driver={Microsoft Access Driver (*.mdb,*.accdb)};DBQ=\"C:/...../\""

所以您更新的功能将是

foo <- function(Path) {
    Driver  <- "Driver={Microsoft Access Driver (*.mdb,*.accdb)};DBQ=\"%s\""
    connect <- odbcDriverConnect(sprintf(Driver, Path))
    return(connect)
}

有关所有惊人的用途，请参见help(sprintf) 。

---

更新：由于尚不清楚我是否要在Path周围加上引号，因此我将提供在没有引号的情况下的方法。 如果你不想字符串中的报价，从删除sprintf()的格式。

Path <- "C:/...../"
sprintf("Driver={Microsoft Access Driver (*.mdb,*.accdb)};DBQ=%s", Path)
# [1] "Driver={Microsoft Access Driver (*.mdb,*.accdb)};DBQ=C:/...../"