Grid Graphics Representation Problem in R-Studio

Question

I am working with that book and R-Studio. I tried to render a grid graphic as described in the book:

library(grid)

pushViewport(plotViewport(c(5