source('clipboard')

In the code below the first source command works fine, but the second
does not, as can be seen from the error message. Is there a way to
have the second command work?

I am using R 2.6.1 on Windows Vista.

(The command that is in the clipboard is just "x <- 3")

source("clipboard", echo = F)
source("clipboard", echo = T)

Error in file(srcfile$filename, open = "rt", encoding = srcfile$encoding) :
  'mode' for the clipboard must be 'r' or 'w'

Thanks for the help.

FS