如何提取用NDSolve求解的方程的数值解对应的数值时候的一个问题

代码如下：是帮助文档里面的一个例子
s=NDSolve[{y'[x]==y[x]Cos[x+y[x]],y[0]==1},y,{x,0,30}]
Plot[Evaluate[y[x]/.s],{x,0,30},PlotRange->All]
我想取得作图的数值，如下：
data = Flatten[ Table[{x,(y[x] /.s)[[1]]},{x,0,30}],1];
data
但是只有x为整数时的数值，怎么取得x为小数时候的数值呢？求解答~~感谢！
运行代码和结果截图如下：