Загрузите файл данных в R, используя tryCatch

Question

Я пытаюсь загрузить файл данных из локального каталога. Если его там нет, загрузите его с веб-сервера. В настоящее время я использую вложенный tryCatch, и он, кажется, работает. Это правильный способ выполнить эту задачу в R?

tryCatch( 
  {  
    #attempt to read file from current directory
    # use assign so you can access the variable outside of the function
    assign("installations", read.csv('data.csv'), envir=.GlobalEnv) 
    print("Loaded installation data from local storage")
  },
  warning = function( w )
  {
     print()# dummy warning function to suppress the output of warnings
  },
  error = function( err ) 
  {
    print("Could not read data from current directory, attempting download...")
    #attempt to read from website
    tryCatch(
    {
        # use assign so you can access the variable outside of the function
        assign("installations", read.csv('http://somewhere/data.csv'), envir=.GlobalEnv) 
        print("Loaded installation data from website")
    },
    warning = function( w )
    {
      print()# dummy warning function to suppress the output of warnings
    },
    error = function( err )
    {
      print("Could not load training data from website!! Exiting Program")
    })
  })

Answer 1

Вы можете использовать функцию file.exists(f), чтобы увидеть, существует ли файл.

Конечно, могут возникнуть и другие ошибки, такие как разрешения или проблемы с форматом файла, так что вы все равно можете захотеть обернуть все в блок try.