Critical t values in R

I need to determine the critical t values for one-sided tails of 75% and 99%, for 40 degrees of freedom.

The following is code for a two-sided 99% critical t values:

qt(0.01, 40)

but how can I determine for a one-sided critical t value?