Моя функция вставки не обеспечивает точный путь к файлу с данными CSV

Question

В коде вы увидите, что это функция if / then, которая записывает каталог файлов в зависимости от того, какая у вас операционная система. Это будет работать на Mac, но когда он видит, что я нахожусь в Windows, я получаю эту ошибку: Ошибка в системе (вставьте ("/ RTools / bin / wc -l \" ", имя файла," \ "", sep = "") ,: '/ RTools / bin / wc' не найден

Я попытался отладить функцию, и при ее запуске имя файла передается в правильный файл CSV в правильном формате. Я считаю, что у меня проблема с двумя косыми чертами, идущими в неправильном направлении, и, возможно, с лишним кавычкой. В строке 3-5 я считаю, что моя проблема в этом.

function( filename ){
  if(.Platform$OS.type=="windows"){
    system.time({
      cmd<-system(paste("/RTools/bin/wc -l \"",filename, "\"",sep=""), intern=TRUE)
      cmd<-strsplit(cmd, " ")[[1]][1]
    })
    return(as.numeric(cmd) + 1)
  } else {
    system.time({
      cmd<-system(paste("wc -l \"",filename,"\" | awk \'{print $1}\'", sep=""), intern=TRUE)
      cmd<-strsplit(cmd, " ")[[1]][1]
    })
    return(as.numeric(cmd) + 1)
  }
}

Я ожидаю, что он построит правильный путь к файлу, в результате я перечислю ошибку.