[R-sig-Geo] Importing xlsm & blinking circilemarkers

[Roger Bivand]

On Thu, 17 Mar 2022, sownal chand wrote:

> Hello sir/madam,
>
> I have a macro-enabled excel file and wanted to import the data that this
> file automatically grabs everytime the macro is run. Are there any packages
> for macro-enabled excel?

No idea, sounds like something for shiny, which I avoid. Interactive 
graphics are very hard to do right at the best of times.

>
> I have written some codes using a leaflet package and was trying to set
> criteria for circle markers that if the Rainfall value is in the ranges the
> color of the markers would change and start blinking. Given for green
> 0-20mm, yellow - 20-30mm, orange- 30-50mm, red- >= 50mm.
>

library(sf)
rainfall <- st_as_sf(read.csv("RainfalSample.csv"), coords=c("Long",
  "Lat"), crs="OGC:CRS84")
library(tmap)
tmap_mode("view")
tm_shape(rainfall) + tm_symbols(size=0.0025, col="Rainfall.mm.",
  style="fixed", breaks=c(0, 20, 30, 50, Inf), pal=c("green", "yellow",
  "orange", "red"))

may be fairly close. tmap is a package using leaflet internally, mapview 
is another such package. Many of the symbols overlap, so are not very 
legible.

Hope this helps,

Roger

> Given below is the code and sample data
> library(sf)
> library(leaflet)
>
> #Make Leaflet map with markers
> leaflet() %>%
>  addTiles() %>%
>  addCircleMarkers(lat = rainfall$Latitude,
>                   lng = rainfall$Longitude)
>
> # Add Data for rainfall
> col_pal <- colorNumeric(palette = "viridis",
>                        domain = rainfall$rainfall)
>
> #adding content to the popups
> #Make map with colors with markers
> Map<- leaflet() %>%
>  addTiles() %>%
>  addCircles(lat = Rainfall$Latitude,
>           lng = Rainfall$Longitude,
>           color = col_pal(Rainfall_plots$Rainfall),
>           radius = 2000,
>          fillOpacity = 0.8,
>          label =  Rainfall_plots$rainfall) %>%
> addLegend(position = "bottomleft", pal = col_pal, values =
> Rainfall_plots$rainfall, title = "Rainfall Indicator")
>
> Map
> ********************************************************************************************************
>
> The code is correct, some ideas to set up criterias for the rainfall amount
> would really be appreciated. And possibly the codes as well would be really
> wonderful. Also attached is the sample data in csv format
>
> Thanking you in advance
> Sownalc
>

-- 
Roger Bivand
Emeritus Professor
Department of Economics, Norwegian School of Economics,
Postboks 3490 Ytre Sandviken, 5045 Bergen, Norway.
e-mail: Roger.Bivand using nhh.no
https://orcid.org/0000-0003-2392-6140
https://scholar.google.no/citations?user=AWeghB0AAAAJ&hl=en