break/exit script

Question

У меня есть программа, которая выполняет некоторый анализ данных и составляет несколько сотен строк.

Очень рано в программе, я хочу сделать некоторый контроль качества, и если данных недостаточно, я хочу, чтобы программа завершилась и вернулась в консоль R. В противном случае я хочу, чтобы остальная часть кода выполнялась.

Я попытался break, browser и quit и ни один из них не остановить выполнение остальной части программы (и quit останавливает выполнение, а также полностью бросить курить R, который не то, что я хочу, чтобы это произошло). Мой последний курорт создает if-else заявление, как показано ниже:

if(n < 500){} 
else{*insert rest of program here*} 

но, похоже, плохая практика кодирования. Я что-то упускаю?

Answer 1

Вы можете использовать функцию stopifnot(), если вы хотите, чтобы программа выдавать ошибку:

foo <- function(x) { 
    stopifnot(x > 500) 
    # rest of program 
} 

Answer 2

реверсировать если-то еще конструкция:

if(n >= 500) { 
    # do stuff 
} 
# no need for else 

Answer 3

Edit: Кажется, что OP работает длинный сценарий, в этом случае нужно только, чтобы обернуть часть сценария после контроля качества с

if (n >= 500) { 

.... long running code here 

} 

Если вспыхивают из функции, вы, вероятно, просто хочу return() явно или implici ждение.

Например, явный двойной обратного

foo <- function(x) { 
    if(x < 10) { 
    return(NA) 
    } else { 
    xx <- seq_len(x) 
    xx <- cumsum(xx) 
    } 
    xx ## return(xx) is implied here 
} 

> foo(5) 
[1] 0 
> foo(10) 
[1] 1 3 6 10 15 21 28 36 45 55 

По return() подразумевался, я имею в виду, что последняя строка, как если бы вы сделали return(xx), но это немного более эффективное убирание вызова return().

Некоторые считают использование многократного возврата плохим стилем; в длинных функциях, отслеживая, где функция выхода может стать сложной или подверженной ошибкам. Следовательно, альтернативой является наличие единственной точки возврата, но изменение возвращаемого объекта с помощью предложения if() else(). Такая модификация foo() бы

foo <- function(x) { 
    ## out is NA or cumsum(xx) depending on x 
    out <- if(x < 10) { 
    NA 
    } else { 
    xx <- seq_len(x) 
    cumsum(xx) 
    } 
    out ## return(out) is implied here 
} 

> foo(5) 
[1] NA 
> foo(10) 
[1] 1 3 6 10 15 21 28 36 45 55 

Answer 4

Здесь:

if(n < 500) 
{ 
    # quit() 
    # or 
    # stop("this is some message") 
} 
else 
{ 
    *insert rest of program here* 
} 

Оба выхода() и остановка (сообщение) прекратит ваш скрипт. Если вы используете сценарий из командной строки R, то quit() также выйдет из R.

Answer 5

Вы можете использовать функцию pskill в пакете «tools» R, чтобы прервать текущий процесс и вернуться на консоль. Конкретно, у меня есть следующая функция, определенная в загрузочном файле, который я запускаю в начале каждого скрипта. Однако вы также можете скопировать его непосредственно в начале вашего кода. Затем вставьте halt() в любую точку вашего кода, чтобы остановить выполнение сценария «на лету». Эта функция хорошо работает на GNU/Linux и, судя по документации R, она также должна работать на Windows (но я не проверял).

# halt: interrupts the current R process; a short iddle time prevents R from 
# outputting further results before the SIGINT (= Ctrl-C) signal is received 
halt <- function(hint = "Process stopped.\n") { 
    writeLines(hint) 
    require(tools, quietly = TRUE) 
    processId <- Sys.getpid() 
    pskill(processId, SIGINT) 
    iddleTime <- 1.00 
    Sys.sleep(iddleTime) 
} 

Answer 6

Возможно, вы просто хотите прекратить выполнение длинного сценария в какой-то момент. то есть. например, вы хотите жестко закодировать exit() в C или Python.

print("this is the last message") 
stop() 
print("you should not see this") 

Answer 7

Не очень, но вот способ реализовать exit() команду в R, который работает для меня.

exit <- function() { 
    .Internal(.invokeRestart(list(NULL, NULL), NULL)) 
} 

print("this is the last message") 
exit() 
print("you should not see this") 

только слегка тестируется, но когда я запускаю это, я вижу this is the last message, а затем сценарий прерывается без сообщения об ошибке.