[Rd] random network disconnects

[Patrick Burns]

I'm experiencing a weird issue, and wondering if anyone has seen this, 
and better yet has a solution.

At work we are getting lots of issues with 'permission denied' or 
'network not found' and so forth when reading and writing between our 
machines and a file server.  This happens randomly so the following 
function solves the problem for 'cat' commands:

catSafer <-
function (..., ReTries = 20, ThrowError = TRUE)
{
     for (catsi in seq_len(ReTries)) {
         res <- try(cat(...))
         if (!inherits(res, "try-error"))
             break
     }
     if (inherits(res, "try-error")) {
         if (ThrowError) {
             stop("file connection failed")
         }
         else {
             warning("file connection failed")
         }
     }
}

People have done network traces and such, but so far nothing has been seen.

Thanks,
Pat

-- 
Patrick Burns
pburns using pburns.seanet.com
http://www.portfolioprobe.com/blog
http://www.burns-stat.com
(home of:
  'Impatient R'
  'The R Inferno'
  'Tao Te Programming')