How do you calculate an exact p-value from the t-values?

#1
I have a regression model that I've run in R.

x<-c(68,88,62,72,60,96,78,46,82,94,68,48)
y<-c(1190,1211,1004,917,770,1456,1180,710,1316,1032,752,963)

m1 <- lm(y~x)
summary(m1)

Which gives me a t-value of 3.301 on the slope

And I understand that I can get a critical value using the following

abs(qt(0.05/2, 10))

which gives 2.28 and indicates that I can reject the null.

But how do I recover the exact p-value of 0.008?