How to Make the Top Plane of a 3D Histogram Square in R’s hist3D Function?

I am using the hist3D function from the plot3D package in R to create a 3D bar plot.