请问在R程序中用deriv函数对某一式子求导后，怎么把某一点的导数值单独引用出来呢？

例如原程序是> dx2x <- deriv(~ (x*y)^2, c("x","y"),func=TRUE)
                     > z<-dx2x(1,2)
                     > z

结果是
       [1] 4
       attr(,"gradient")
             x y
      [1,] 8 4

请问如果想单独引用对x求导后的函数值“8”要用什么语句呢？这结果是个列表、数据框还是什么别的对象啊？怎么引用其中的元素呢？