Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

Moves map specs into function

  • Loading branch information...
commit b0759a4fd8a581642ee1c610fb665dca940547d7 2 parents 0efbeb2 + 8533b5f
@mollietaylor authored
Showing with 0 additions and 17 deletions.
  1. +0 −17 map.R
View
17 map.R
@@ -10,18 +10,6 @@ source("functions.R")
allTracks <- read.csv("allTracks.csv",
header = TRUE)
-# rangeConst <- 0.05
-# meanLon <- mean(allTracks$Longitude)
-# meanLat <- mean(allTracks$Latitude)
-# lonHiRange <- quantile(allTracks$Longitude, probs = c(1 - rangeConst))
-# lonLoRange <- quantile(allTracks$Longitude, probs = c(rangeConst))
-# lonRange <- lonHiRange - lonLoRange
-# latHiRange <- quantile(allTracks$Latitude, probs = c(1 - rangeConst))
-# latLoRange <- quantile(allTracks$Latitude, probs = c(rangeConst))
-# latRange <- latHiRange - latLoRange
-# # lonRange <- range(allTracks$Longitude)[2] - range(allTracks$Longitude)[1]
-# # latRange <- range(allTracks$Latitude)[2] - range(allTracks$Latitude)[1]
-
allTracks$Latitude <- ifelse(is.na(allTracks$Seg), NA, allTracks$Latitude)
allTracks$Longitude <- ifelse(is.na(allTracks$Seg), NA, allTracks$Longitude)
@@ -57,11 +45,6 @@ specs <- mapSpecs(allTracks, 0)
dev.copy(png, paste(mapDir, "/default.png", sep = ""))
dev.off()
-
-# mapWidth <- max(lonRange, latRange)
-
-# mapZoom <- floor(13 - log2(10 * mapWidth))
-
# auto map:
specs <- mapSpecs(allTracks, 0.05) # percentile
mapImageData <- get_map(location = c(lon = mean(c(specs$lonLoRange, specs$lonHiRange)),
Please sign in to comment.
Something went wrong with that request. Please try again.