Merge pull request #33 from terraref/met

small tweaks to met examples

Author: dlebauer

sensors/01-meteorological-data.Rmd

@@ -7,7 +7,7 @@ output: html_document
 knitr::opts_chunk$set(echo = FALSE, cache = TRUE)
 
 api_url <- "https://terraref.ncsa.illinois.edu/clowder/api"
-output_dir <- "~/data/downloads/"
+output_dir <- file.path(tempdir(), "downloads")
 dir.create(output_dir, showWarnings = FALSE, recursive = TRUE)
 
 ```
@@ -108,13 +108,18 @@ Here is the json representation of a single five-minute observation:
 
 The data represent 5 minute summaries aggregated from 1/s observations.
 
+First, this is what the API looks like
+
+https://terraref.ncsa.illinois.edu/clowder/api/geostreams/datapoints?key=Pb3AUSqnUw&stream_id=4807&since=2017-01-02&until=2017-01-31
+
 ```{r met-geostream}
 library(dplyr)
 library(ggplot2)
 library(jsonlite)
 
 url = ""
-mac_weather.list <- jsonlite::fromJSON('https://terraref.ncsa.illinois.edu/clowder/api/geostreams/datapoints?key=Pb3AUSqnUw&stream_id=3208&since=2017-01-02&until=2017-12-31', flatten = FALSE)
+mac_weather.list <- jsonlite::fromJSON('https://terraref.ncsa.illinois.edu/clowder/api/geostreams/datapoints?key=Pb3AUSqnUw&stream_id=4807&since=2017-01-02&until=2017-01-31')
+#mac_weather.list <- jsonlite::fromJSON('https://terraref.ncsa.illinois.edu/clowder/api/geostreams/datapoints?key=Pb3AUSqnUw&stream_id=3208&since=2017-01-02&until=2017-12-31', flatten = FALSE)
 
 # change time to human-readable
 mac_weather <- mac_weather.list$properties %>% 

traits/03-access-r-traits.Rmd

@@ -74,8 +74,8 @@ Now the same query can be reduced to:
 
 ```{r sv_area}
 sorghum_height <- betydb_query(table = 'search',
-                               trait = "plant_height",
-                               site  = "~MAC",
+                               trait = "canopy_cover",
+                               site  = "~Season 6",
                                limit = 'none')
 ```