error when loading rwinedt

the error msg is:

local({pkg <- select.list(sort(.packages(all.available = TRUE)))

+ if(nchar(pkg)) library(pkg, character.only=TRUE)})
Error in if (RWinEdtVersion) RWinEdtVersion <- scan(file.path(InstallRoot,  : 
        argument is of length zero
Error: .onAttach failed in 'attachNamespace'
Error: package/namespace load failed for 'RWinEdt'

version

_              
platform i386-pc-mingw32
arch     i386           
os       mingw32        
system   i386, mingw32  
status   alpha          
major    2              
minor    2.0            
year     2005           
month    09             
day      07             
svn rev  35513          
language R