Нет результата от команды system2 - PullRequest
Новая
       6

Нет результата от команды system2

1 голос
/ 07 февраля 2020

У меня есть скрипт, который я использую для анализа некоторых аудиоданных в R studio. Сценарий выполняется без ошибок, однако, когда я его выполняю, он просто ничего не делает. Я думаю, что это может быть проблема с командой system2. Любая помощь очень ценится, я в недоумении даже без сообщения об ошибке go по

Вот мой код- 

# Set the directory containing the files
directory <- "D://Alto//Audio 1//Day 2//"
# The directory to store the results
base_output_directory <- "D://Ecoacoustics//Output//indices_output//"

# Get a list of audio files inside the directory
# (Get-ChildItem is just like ls, or dir)
files <- list.files(directory, pattern = "*.wav", full.names = TRUE)

# iterate through each file
for(file in files) {
 message("Processing ", file) 

  # get just the name of the file
  file_name <- basename(file)

  # make a folder for results
  output_directory <- normalizePath(file.path(base_output_directory, file_name))
  dir.create(output_directory, recursive = TRUE)

  # prepare command
  command <- sprintf('audio2csv "%s" "Towsey.Acoustic.yml" "%s" ', file, output_directory)

  # finally, execute the command
  system2('C://Ecoacoustics//AnalysisPrograms//AnalysisPrograms.exe//', command) 
}
...