data-raw/rtklibShinyApp/global.R

In fpirotti/rRINEX: Reads RINEX Files

list.of.packages <- c("leaflet", "leafem", "shiny", "shinydashboard", "shinydashboardPlus",
                      "shinyWidgets", "shinyjs", "shinyjqui", "plotly", "leaflet.extras" )
new.packages <- list.of.packages[!(list.of.packages %in% installed.packages()[,"Package"])]
if(length(new.packages)>0) {
  message("The following packages are required before running:
",
        paste(new.packages, collapse = " - "), "
... type YES or Y and press return to install them ")
  var = readline()
  if( toupper(var)=="Y" || toupper(var)=="YES") install.packages(new.packages)
  
}

library(leaflet)
library(leafem)
library(shiny)
library(shinydashboard)
library(shinydashboardPlus)
library(shinyWidgets)
library(shinyjs)
library(shinyjqui)


 

leaflet.object <-
  leaflet::leaflet() %>%
  leaflet::addTiles(group = "OpenStreetMap") %>%
  leaflet.extras::addBingTiles(
    "Satellite BING maps",
    group = "BING",
    apikey = "AjvjPYuoA4IgNeooKvodDLcxbVL1F8RdIxXUeYsb6PgiVapURz_PbbWvOxVKmNps",
    imagerySet = c("Aerial")
  ) %>%
  leaflet::addTiles(urlTemplate  = '', group = "Blank") %>%
  leaflet::addLayersControl(
    position = ("topright"),
    baseGroups = c("Blank", "OpenStreetMap", "BING"),
    overlayGroups = c("RINEX OBS. Position", "RINEX OBS. Points"),
    leaflet::layersControlOptions(autoZIndex = FALSE, collapsed = FALSE)
  ) %>%
  
  leaflet::showGroup("OpenStreetMap")   %>%
  leaflet::showGroup("RINEX OBS. Position")   %>%
  
  leaflet::addScaleBar("bottomright") %>%
  leaflet::addMiniMap(tiles = "OpenStreetMap",
                      toggleDisplay = TRUE,
                      position = "topright") %>%
  htmlwidgets::onRender(
    "
function(el, x) {
  myMap = this;
  Shiny.setInputValue('leafletRendered',true, {priority: \"event\"});

}"
  ) %>%
  leaflet::setView(lng = 11.970140, lat = 46, zoom = 7)  %>%
  leafem::addMouseCoordinates()