сценарій розриву / виходу

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

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

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

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

але це здається поганою практикою кодування. Мені чогось не вистачає?

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

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

Не гарно, але ось спосіб реалізувати 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і тоді сценарій переривається без жодного повідомлення про помилку.

Змініть свою конструкцію if-else:

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

Редагувати: Здається, OP виконує довгий скрипт, у цьому випадку потрібно лише обернути частину сценарію після контролю якості за допомогою

if (n >= 500) {

.... long running code here

}

Якщо вирваєтеся з функції , ви, мабуть, просто захочете return(), явно або неявно.

Наприклад, явне подвійне повернення

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

Можливо, ви просто захочете в якийсь момент припинити виконувати довгий сценарій. тобто як ви хочете жорстко закодувати вихід () на C або Python.

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

Це давнє запитання, але поки немає чистого рішення. Це, мабуть, не відповідає на це конкретне питання, але ті, хто шукає відповіді на тему «як витончено вийти зі сценарію R», напевно, потраплять сюди. Здається, розробники R забули реалізувати функцію exit (). У будь-якому випадку, фокус, який я знайшов:

continue <- TRUE

tryCatch({
     # You do something here that needs to exit gracefully without error.
     ...

     # We now say bye-bye         
     stop("exit")

}, error = function(e) {
    if (e$message != "exit") {
        # Your error message goes here. E.g.
        stop(e)
    }

    continue <<-FALSE
})

if (continue) {
     # Your code continues here
     ...
}

cat("done.\n")

В основному, ви використовуєте прапор для позначення продовження чи ні вказаного блоку коду. Потім ви використовуєте stop()функцію для передачі спеціального повідомлення обробнику помилок tryCatch()функції. Якщо обробник помилок отримує ваше повідомлення для виходу з тонким виходом, тоді він просто ігнорує помилку та встановлює прапор продовження на FALSE.

Ви можете використовувати pskillфункцію в 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)
}

Тут:

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

Обидва quit()і stop(message)вийде з вашого сценарію. Якщо ви отримуєте скрипт із командного рядка R, тоді quit()також вийде з R.