tylermorganwall / musamasterclass Goto Github PK

Hi Tyler,

Great class!

My issue is with the custom function lat_long_to_other:

lat_long_to_other = function(lat,long, epsg_code) {
  data = data.frame(long=long, lat=lat)
  coordinates(data) <- ~ long+lat
  #Input--lat/long
  proj4string(data) <- CRS("+init=epsg:XXXX")
  #Convert to coordinate system specified by EPSG code
  xy = data.frame(spTransform(data, CRS(paste0("+init=epsg:", epsg_code))))
  colnames(xy) = c("x","y")
  return(unlist(xy))
}


bottomleft = lat_long_to_other(51.4452463, -3.1812256, 1314)
topright = lat_long_to_other(51.4667095, -3.163987, 1314)

As you can see, I've found the espg code for my chosen location, but get an error when attempting to run. I Believe the error is probably caused by not knowing the correct value to pass to
CRS("+init=epsg:XXXX")

I can see that this is a different value from the Miami-Dade espg used in the masterclass markdown. Do you have any tips for establishing the correct value for this argument?

Here is the error:
Error in CRS("+init=epsg:1314") : no options found in 'init' file

I hate to bother you, but I am running through this class, and thank you for it, and I am getting an error when I run the code:
hobart_mat %>%
lamb_shade(zscale = 33) %>%
add_shadow(ray_shade(hobart_mat, zscale = 33,
sunaltitude = 6, lambert = FALSE), 0.3) %>%
plot_map()

This is the error message:
Error in hillshade * t(scales::rescale(shadowmap[nrow(shadowmap):1, ], :
non-conformable arrays

Here is my sessionInfo()
R version 4.0.3 (2020-10-10)
Platform: x86_64-w64-mingw32/x64 (64-bit)
Running under: Windows 10 x64 (build 18363)

attached base packages:
[1] stats graphics grDevices utils datasets methods base

other attached packages:
[1] whitebox_1.4.0 rgdal_1.5-19 lubridate_1.7.9.2 suncalc_0.5.0
[5] spatstat.utils_1.20-2 rayrender_0.14.0 rayshader_0.19.2 ggplot2_3.3.3
[9] spatstat_1.64-1 rpart_4.1-15 nlme_3.1-149 spatstat.data_1.7-0
[13] raster_3.4-5 sp_1.4-5

Can you direct me how to solve this issue so that I can continue your tutorial?