Как передать путь каталога linux к функции

Question

Я проверил похожие темы и попытался соответственно, но все еще сталкивался с проблемой.

Моя функция:

pollutantmean("/root/specdata","","") 
pollutantmean <- function(directory, pollutant, id = 1:332) { 

    ## Get a list of filenames 
    filenames <- list.files(path=directory, pattern="*.csv") 

    ## Initialize a vector to hold values 
    vals <- vector() 

    ## Loop over the passed id's 
    for(i in id) { 

     ## Pad the i to create a filename 
     filename <- sprintf("%03d.csv", i) 
     filepath <- paste(directory, filename, sep="/") 

     ## Load the data 
     data <- read.csv(filepath) 

     ## Select our column 
     d <- data[,pollutant] 

     ## Ignore NAs 
     d <- d[!is.na(d)] 

     ## append to our vector 
     vals <- c(vals, d) 
    } 

    ## Return the value rounded to 3 dec places 
    round(mean(vals), 3) 
} 

ошибка:

pollutantmean <- function("/root/specdata", "nitrate", id = 1:332) { 
## Error: unexpected string constant in "pollutantmean <- function("/root/specdata"" 

Answer 1

Попробуйте следующие функции. Он хорошо работает:

dirfn = function(dirname){ 
    print(getwd()) 
    setwd(dirname) 
    print(getwd()) 
}