R/findClosest.R

In topolskib/sciezkiCNK: Pakiet służy do wizualizacji poruszania się użytkowników po wystawie ReGeneracja.

#' @title Eksponat najbliższy aktualnej pozycji kursora
#' 
#' @description
#' Funkcja zwraca informacje o eksponacie znajdującym się najbliżej kursora.
#' 
#' 
#' @param coords Współrzędne kursora
#' 
#' @param slownik Słownik urządzeń
#' 
#' @return
#' Funkcja zwraca dwuelementowy wektor typu string zawierający informacje o nazwie i numerze eksponatu.
#' 
#' @export
#' 

findClosest <- function(coords, slownik){
  dists <- as.matrix(dist(rbind(coords,slownik[,4:5])))[-1,1]
  stacja <- which.min(dists)
  if(dists[stacja]<20) {return(c(paste0("Numer stacji: ", as.character(slownik$nr[stacja])),paste0( "Nazwa stacji: ",as.character(slownik$nazwa[stacja])  )))}
  else return(c("Numer stacji: ---", "Nazwa stacji: ---" ))
}