iopt <- buildIOptions(
minZoom = 0.001, maxZoom = 3, zoomingEnabled = TRUE,
userZoomingEnabled = FALSE, panningEnabled = TRUE, userPanningEnabled = TRUE,
boxSelectionEnabled = FALSE, selectionType = "single", autolock = FALSE,
autoungrabify = TRUE, autounselectify = FALSE
)
Run the code above in your browser using DataLab