#Tornetrask.Grudd.2002

---
title: "Tornetrask.Grudd.2002"
output: 
  flexdashboard::flex_dashboard:
    vertical_layout: scroll
    theme: bootstrap
    source_code: embed
    orientation: rows
---

```{r setup, include = FALSE}
library(flexdashboard)
library(maptools)
library(tidyverse)
library(purrr)
library(leaflet)
library(plotly)
library(lipdR)
library(dygraphs)
library(geoChronR)
library(lipdverseR)
#read functions
load("../../temp.Rdata")
load("../../chronTemp.Rdata")


#remove columns we don't want to plot
varNames <- sapply(TS, "[[","paleoData_variableName")

# good <- which(!(varNames %in% c("year","depth","age")))
# TS <- TS[good]



#All datasets
dsn <- lipdR::pullTsVariable(TS,"dataSetName")
ui <- which(!duplicated(dsn))
udsn <- dsn[ui]
lat <- lipdR::pullTsVariable(TS,"geo_latitude")[ui]
lon <- lipdR::pullTsVariable(TS,"geo_longitude")[ui]
elev <- lipdR::pullTsVariable(TS,"geo_elevation")[ui]


archiveType <- lipdR::pullTsVariable(TS,"archiveType")[ui]
link <- paste0(udsn,".html") %>%
  str_replace_all("'","_")


#Organize metadata for map
map.meta <- data.frame(dataSetName = udsn, #datasetname
                       lat = lat,#lat
                       lon = lon,#lon
                      # elev = elev,#elevation
                       archiveType = factor(archiveType),#archiveType
                       link = link)#Link


#set index number

i = 642
thisTS <- TS[which(udsn[i] == dsn)]
```
#Tornetrask.Grudd.2002

Metadata {.sidebar}
-------------------------------------
[Download LiPD file](Tornetrask.Grudd.2002.lpd)
            

[Edit LiPD file](http://lipd.net/playground?source=http://lipdverse.org/Temp12k/1_0_2/Tornetrask.Grudd.2002.lpd)
            

[Download paleoData only (csv)](Tornetrask.Grudd.2002.csv)
            

[Report an issue (include dataset name)](https://github.com/nickmckay/LiPDverse/issues)


root
archiveType: Wood
originalDataUrl: www.ncdc.noaa.gov/paleo/study/15444
lipdVersion: 1.3


pub

pub1
author: list(list(name = "Grudd, H̴kan; Briffa, Keith R.; Karl̩n, Wibjorn; Bartholin, Thomas S.; Jones, Philip D.; Kromer, Bernd"))
citeKey: LTU9ABHI
journal: The Holocene
volume: 12
pages: 657   665
title: A 7400-year tree-ring chronology in northern Swedish Lapland: Natural climatic variability expressed on annual to millennial timescales


pub2



geo
latitude: 68
longitude: 20
elevation: 400
siteName: Tornetrask


PaleoData columns

age (BP)
TSid: PYTKF3PM6QY
variableName: age
units: BP


temperature (degC)
TSid: PYT581AWKCZ
variableName: temperature
units: degC
useInGlobalTemperatureAnalysis: TRUE

interpretation

1
interpDirection: 1
scope: climate
seasonality: 6,7,8
seasonalityOriginal: 6 7 2008
variable: T
isAnnual: FALSE
variableOriginal: TRUE
seasonalityGeneral: summerOnly
variableGroup: Temperature
variableGroupOriginal: T
direction: positive
variableDetail: air@surface
variableGroupDirection: list("negative")




Row {.tabset .tabset-fade}
-----------------------------------------------------------------------

### Sitemap

```{r}
  map.meta.split <- split(map.meta, map.meta$archiveType)


factpal <- colorFactor("Paired",map.meta$archiveType)
buff <- 15
l <- leaflet() %>% 
  addTiles() %>% 
  fitBounds(map.meta$lon[i]-buff,map.meta$lat[i]-buff,map.meta$lon[i]+buff,map.meta$lat[i]+buff)
  

  
  
names(map.meta.split) %>%
  purrr::walk( function(df) {
    l <<- l %>%
      addMarkers(data=map.meta.split[[df]],
                 lng=~lon, lat=~lat,
                 label=~as.character(archiveType),
                 popup=~paste(str_c('Dataset: ',dataSetName,''),
                                 # str_c("Elevation: ",elev),
                                  str_c("Archive Type: ",archiveType),
                                  sep = "
"),
                 group = df,
                 clusterOptions = markerClusterOptions(removeOutsideVisibleBounds = F),
                 labelOptions = labelOptions(noHide = F,
                                             direction = 'auto'))
  })

l <- l %>%   addCircleMarkers(lng = map.meta$lon[i], lat = map.meta$lat[i],radius = 20,color = "red",fillColor = "none")

l %>%
  addLayersControl(position = "bottomleft",
    overlayGroups = names(map.meta.split),
    options = layersControlOptions(collapsed = FALSE,
                                   opacity = 0.8)
  )
```

### Search the LiPDverse (Beta! doesn't work well yet)
```{r}
#Add google search bar
htmltools::includeHTML("../../googleSearchChunk.html")
```


Row {.tabset .tabset-fade}
-----------------------------------------------------------------------

### temperature (degC)
```{r}
plotCol(thisTS,ind = 2)
```