In luismurao/ntbox: From Getting Biodiversity Data to Evaluating Species Distribution Models in a Friendly GUI Environment

This is NicheToolBox data report here you can find a quick view of the thinks that you have done in the software. Remember that this is free software so it comes with no waranty, please report any bugs you find at [e-mail]

library(knitr)
if(input$search_gbif_data && is.data.frame(data_gbif())){
  occ_data <- data_gbif()

  cat("## GBIF data")
  cat("\n")
  cat(paste0("The total number of occurrences points were: **", dim(data_gbif())[1],"**"))
  cat("\n")
  printInfoGBIF <- TRUE

} else{
  printInfoGBIF <- FALSE
}

occ_data <- data_gbif()
kable(head(occ_data[,c(input$xLongitudeGBIF,
                       input$yLatitudeGBIF,
                       "country","countryCode")]),digits=4)

library(googleVis)
op <- options(gvis.plot.tag="chart")

cat("### GBIF visualizations")
cat("\n")
cat("#### Pie chart of occs by country (all years)")
cat("\n")

plot(GBIF_vis()$pie)

cat(paste0("#### Pie chart of occs by country (year ",input$GBIFYears, ")"))

plot(calendar())

cat("#### Motion chart of records reported by year")

plot(GBIF_vis()$motion)

cat("#### GBIF animated history of records")

anifile <- paste0(tempdir(),"/",temGBIF())
anima_save <- paste0(wf_dir_path,"/",input$genus,"_",
                      input$species,"_animation.gif")
if(file.exists(anima_save)) cat(paste0("![](",anima_save,")"))

library(knitr)
occ_data <- data_user_clean()
if(!is.null(occ_data)){
  cat("## User data")
  cat("\n")
  cat(paste0("The total number of occurrences points were: **", dim(occ_data)[1],"**"))
  cat("\n")

  printInfoUser <- TRUE

} else{
  printInfoUser <- FALSE
}

occ_data <- data_user_clean()
kable(head(occ_data[,c(input$xLongitudeUser,
                     input$yLatitudeUser)]),digits=4)

data_map <- dataDynamic()
if(!is.null(data_map)){
  cat("## Dynamic Map")
  cat("\n")
  cat(paste0("The followig is the map of ***",input$dataset_dynMap,"*** occurrence points"))
  printInfoDynamicM <- TRUE
} else{
  printInfoDynamicM <- FALSE
}

leafMapDynamic() %>%  addTiles(
    urlTemplate = "http://{s}.tiles.mapbox.com/v3/jcheng.map-5ebohr46/{z}/{x}/{y}.png",
    attribution = 'Maps by <a href="http://www.mapbox.com/">Mapbox</a>'
)

leafMapDynamic()

luismurao/ntbox documentation built on April 3, 2024, 5:47 a.m.