rOpenSci rgbif shiny app test

prepdata.R

splist <- c("Accipiter erythronemius", "Junco hyemalis", "Aix sponsa", "Haliaeetus leucocephalus",
  "Corvus corone", "Threskiornis molucca", "Merops malimbicus")
out <- lapply(splist, function(x) occurrencelist(x, coordinatestatus=T, maxresults=500))
names(out) <- splist
setwd("~/ShinyApps/rgbif2")
save(out, file="speciesdata.rda")

server.R

library(shiny)
library(plyr)
library(ggplot2)
library(rgbif)

## Set up server output
shinyServer(function(input, output) {
  load("speciesdata.rda")
  # define function for server plot output
  output$gbifplot <- reactivePlot(function() {
    species <- input$spec
    df <- out[names(out) %in% species]
    print(gbifmap(df))
  })
  
  output$cbt <- reactiveText(function(){
    
  })
  
  
  
})

ui.R

library(shiny)

# Define UI for application that plots random distributions 
shinyUI(pageWithSidebar(
  headerPanel("rgbif example"),
  sidebarPanel(
    checkboxGroupInput("spec", "Species to map:",
                       c('Sharp shinned hawk (Accipiter erythronemius)' = "Accipiter erythronemius",
                         "Dark eyed junco (Junco hyemalis)" = "Junco hyemalis",
                         "Wood duck (Aix sponsa)" = "Aix sponsa",
                         'Bald eagle (Haliaeetus leucocephalus)' = "Haliaeetus leucocephalus",
                         'Carrion crow (Corvus corone)' = "Corvus corone",
                         'Australian White Ibis (Threskiornis molucca)'= "Threskiornis molucca",
                         'Rosy Bee-eater (Merops malimbicus)' = 'Merops malimbicus'
                       ), selected=c('Rosy Bee-eater (Merops malimbicus)','Carrion crow (Corvus corone)','Bald eagle (Haliaeetus leucocephalus)'))
    
  ),
  
  mainPanel(
    h5("A map of your selected species: Please note that GBIF is queried for every selection so loading times vary"),
    plotOutput("gbifplot")
    
  )
  
))