/trunk/Examples/test-suite/r/r_double_delete_runme.R

# · R · 9 lines · 6 code · 2 blank · 1 comment · 0 complexity · eb83e8f42f06034b5a29febed4976804 MD5 · raw file 

    

  1. dyn.load(paste("r_double_delete", .Platform$dynlib.ext, sep=""))
    2. 

  2. source("r_double_delete.R")
    3. 

  3. cacheMetaData(1)
    4. 

  4. 

  5. # ----- Object creation -----
    6. 

  6. 

  7. f <- Foo(2.0)
    8. 

  8. delete(f);
    9. 

  9. delete(f);
    10.