watchpos.R

watchpos <- tags$script('
              $(document).ready(function () {
                        
                        function getLocation(callback){
                        var options = {
                        enableHighAccuracy: true,
                        timeout: 5000,
                        maximumAge: 0
                        };
                        
                        navigator.geolocation.getCurrentPosition(onSuccess, onError);
                        
                        function onError (err) {
                        Shiny.onInputChange("geolocation", false);
                        }
                        
                        function onSuccess (position) {
                        setTimeout(function () {
                        var coords = position.coords;
                        var timestamp = new Date();
                        
                        console.log(coords.latitude + ", " + coords.longitude, "," + coords.accuracy);
                        Shiny.onInputChange("geolocation", true);
                        Shiny.onInputChange("lat", coords.latitude);
                        Shiny.onInputChange("long", coords.longitude);
                        Shiny.onInputChange("accuracy", coords.accuracy);
                        Shiny.onInputChange("time", timestamp)
                        
                        console.log(timestamp);
                        
                        if (callback) {
                        callback();
                        }
                        }, 1100)
                        }
                        }
                        
                        var TIMEOUT = 5000; //SPECIFY
                        var started = false;
                        function getLocationRepeat(){
                        //first time only - no delay needed
                        if (!started) {
                        started = true;
                        getLocation(getLocationRepeat);
                        return;
                        }
                        
                        setTimeout(function () {
                        getLocation(getLocationRepeat);
                        }, TIMEOUT);
                        
                        };
                        
                        getLocationRepeat();
                        
                        });
                        ')

message("watchpos cargado")