miti | musical instrument textual interface | Audio Utils library

This is my first question so I apologise if its not up to scratch, but I'm stuck on an issue and I really need help please.

I'm trying to create a shiny app, which will allow you to select a species from a drop down menu, thereby changing the colour of country polygons on a map, 1 colour for presence and another for absence. I've created a sf object with the shapefile data and merged it with a presence absence (1 +0 respectively) dataframe, the intention being that selection of this species will change input$SppSelect, selecting a different column in the merged sf object, and then this will cause my leaflet map to be redrawn with a new species occurrence.

To colour the map I intended to assign my species input variable to another variable: sppcol <- reactive({input$SppSel}), and then use Botpal <- reactive({colorFactor(viridis(2), BotCon$sppcol())}) to make a reactive palette. I'd then use fillColor = ~Botpal(Botcon$sspcol()) to change the colour of the polygons.

I'm not sure if I can produce a reprex but I'll attempt to illustrate how the app should work. Palms = csv file with every species occurrence next to the country its in:

( china : caryota mitis)

(china : caryota no)

(Bhutan : caryota mitis).

BotCon is the botanical countries shape file I'm working with. :

I have a dataset with oppurtunistic species-observations per square kilometer per year (ranging from 1900 to 2019).

There are 139 different sites (square kilomters) in my dataset. I want to make a dataset where for each species for every year for every site, its presence or absence is stated with 1 or 0.

I think this is the appropriate format for including the length of the species-list per year per site in a GLM, to try and account for repeated visits to sites within years (See Szabo et al. 2010 sci-hub.tw/10.1890/09-0877.1 for application of this method).

Data now looks like: