stop code execution if any error

Question

I have code in which I am sourcing multiple codes one after the other. Something like below

source("t1.r")
source("t2.r")
source("t3.r")
source("t4.r")

While running this main script if any source statement gives an error, I don't want to source any remaining scripts (i.e. don't want to run any subsequent statements).

I don't want to write if error condition after every source statement. I want to do something universal and at the beginning only.

What change should I do in the main script to do this?

Are these files multiple lines of codes? Or are there functions within these files. You can look at stop function — CuriousBeing
– CuriousBeing, Commented Feb 21, 2016 at 7:17
Yes they are multiple lines of codes, but there are no functions inside those. — user3664020
– user3664020, Commented Feb 21, 2016 at 7:18
stop function, i will have to write after every statement, won't I? That will too inefficient, since there are a lot of source statements in the main script. — user3664020
– user3664020, Commented Feb 21, 2016 at 7:19
Why would you write the source call 20 times for 20 scripts? Iterate on the scripts names/paths and handle exception within the loop, don't copy/paste as per DRY principles. — daroczig
– daroczig, Commented Feb 21, 2016 at 7:54
If you put those source statements in a file (say named all.R), then you run source("all.R") and it will stop as soon as there is an error. Do you also want to know which script produced the error? — nicola
– nicola, Commented Feb 21, 2016 at 7:55

CuriousBeing · Accepted Answer · 2016-02-21 08:31:00Z

1

Edited as per suggested by Nicola and RHertel

setwd("/Users/xxxx/Desktop/Sub")
scripts<-list.files(pattern="*.R")         

for (f in scripts)
{
  c<-try(source(f))                        
  ifelse (class(c)!="try-error", print(paste("Script Sourced:", f,sep=" ")), setwd("/Users/xxxx/Desktop")             
}

This script prints the scripts sourced. That way you can recognise which didnt get sourced.

edited Feb 21, 2016 at 8:31

answered Feb 21, 2016 at 8:02

CuriousBeing

1,64215 silver badges34 bronze badges

Sign up to request clarification or add additional context in comments.

1 Comment

CuriousBeing Over a year ago

Thank you Nicola and RHertel. New code is much improved. Thank you

Collectives™ on Stack Overflow

stop code execution if any error

1 Answer 1

1 Comment

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

1 Comment

Your Answer

Sign up or log in

Post as a guest

Related