Vous ne voulez pas utiliser date
comme nom d'objet, puisque c'est une fonction en base R. Mais sinon, votre fonction semble fonctionner. L'essentiel :
x <- as.Date(gsub(" GMT\\+0000 \\(UTC\\)", "",
'Tue Aug 12 2014 19:47:50 GMT+0000 (UTC)'),
format="%a %b %d %Y %T")
x
renvoie :
[1] "2014-08-12"
et
class(x)
renvoie :
[1] "Date"