The Chi-Square table value for given level of significance and degrees of freedom can be found by using
If you have a range of degrees of freedom, for example 1 to 10:
> qchisq(p=1-0.05, df=1:10)
To get a nice table
> X <- qchisq(p=1-0.05, df=1:10)
You can also use xtable package for this purpose too.
> format(X, digits = 4, width=7)
> as.dara.frame(cbind(1:10, X) )