Ошибка в файле (файл, «rt»): невозможно открыть соединение - невозможно открыть файл «specdata» access denied

Question

Я запускаю rStudio v3.1.2 в Windows 7. Этот ноутбук представляет собой 64-разрядную машину.

Я беру курс программирования JHU R, предлагаемый Курсерой, и я застрял на ошибке, которую я получаю в первой части проблемы. У меня есть некоторые функции обработки ошибок, которые я придерживаюсь из этого примера, поэтому я просто пытаюсь показать, что мне абсолютно необходимо. Единственная причина, по которой я включаю сообщения, - это продемонстрировать, что все условия должны быть выполнены для продолжения.

pollutantmean <- function(directory, pollutant, id=1:332) { 

    setwd("C:\\Users\\WR-eSUB\\specdata") 

    if(!isValidDirectory(directory)) { 
     stop("Invalid input given. Please specify valid directory to operate on.") 
    } 
    if(!isValidPollutant(pollutant)) { 
     stop("Invalid input given. Please specify valid pollutant (nitrate/sulfate).") 
    } 
    if(!isValidIdRange(id)) { 
     stop("Invalid input given. Please specify valid id range (1:332).") 
    } 
    sortedData = numeric() 
    for (i in id) { 
     thisFileName = paste(formatC(i, width = 3, flag = "0"), ".csv", sep="") 
     thisFileRead = read.csv(directory, thisFileName) 
     sortedData = c(sortedData, thisFileRead[[pollutant]]) 
    } 
    mean(sortedData, na.rm = TRUE) 
} 

Обратите внимание, что внутри WR-eSUB папка под названием specdata и внутри этой папки есть каталог, который содержит файлы .csv также называемых specdata. Я мог бы изменить это, но до сих пор я работал с ним, и я не сталкивался с какими-либо проблемами.

Когда я называю pollutantmean("specdata", "nitrate", 1:2) я получаю следующее сообщение об ошибке:

Error in file(file, "rt") : cannot open the connection 
In addition: Warning message: In file(file, "rt") : cannot open file 'specdata': Permission denied 

Теперь в моих многочисленных попыток, чтобы попытаться закончить эту часть задания я был в состоянии извлечь данные другими способами, используя вещи но, поскольку я продолжал застревать, я выбросил все и хотел попробовать что-то в этом роде.

Я искал в Интернете, чтобы попытаться найти это решение. Несмотря на то, что есть несколько ответных запросов, ни одна из них, похоже, не настолько запутанна, как эта. WR-eSUB является административной папкой, но предыдущие попытки открыть файлы внутри нее ранее не производили эту ошибку.

Answer 1

После хорошего сна мы увидели проблему. Я вообще не использовал каталог, поэтому мне нужно было добавить его.

thisFileName = paste(directory, "/", formatC(i, width = 3, flag = "0"), ".csv", sep="") 

Answer 2

Эта линия не получится:

read.csv(directory, thisFileName) 

потому что, как беглый взгляд в сторону ?read.csv сказал бы вам, что первый аргумент этой функции:

file: the name of the file which the data are to be read from. 
     Each row of the table appears as one line of the file. If it 
     does not contain an _absolute_ path, the file name is 
     _relative_ to the current working directory, ‘getwd()’. 
     Tilde-expansion is performed where supported. This can be a 
     compressed file (see ‘file’). 

и вы передаете его directory (как в specdata в соответствии с указанным вами вызовом).

Учитывая, что setwd() уже поставил вас в этом каталоге, будет не

read.csv(theFileName) 

работа?