Add controls

[crazycapivara]

navigation_control <- function(options, pos) {
}

xyz_control <- function(options, pos) {
}