R/ee_browse_photos.R
In ropensci/ecoengine: Programmatic Interface to the Web Service Methods Provided by UC Berkeley's Natural History Data
Defines functions
view_photos
Documented in
view_photos
#' Browse photo queries in your default browser.
#'
#' @import glue
#' @importFrom assertthat assert_that
#' @importFrom utils browseURL
#' @param input Input, usually output from a call to \code{\link[ecoengine]{ee_photos}}
#' @param output Path and file name for output file. If NULL, a temp file is used.
#' @param browse Browse file in your default browse immediately after file creation.
#' If \code{FALSE}, the file is written, but not opened.
#' @export
#' @examples
#' # view_photos(ee_photos())
#' # Pictures of racoons
#' # view_photos(ee_photos(scientific_name = "Procyon lotor", quiet = TRUE))
#' # or the California Condor
#' # view_photos(ee_photos(scientific_name = "Gymnogyps californianus", quiet = TRUE))
view_photos <- function(input = NULL, output = NULL, browse = TRUE)
{
if(is.null(input))
stop("Please supply some input")
browser()
assert_that(identical(input$type, "photos"))
photo_list <- apply(input$data, 1, function(x) as.list(x))
photo_list <- unname(photo_list)
template <-
'<!DOCTYPE html>
<head>
<meta charset="utf-8">
<title>ecoengine - view highlighs</title>
<meta name="viewport" content="width=device-width, initial-scale=1.0">
<meta name="description" content="View highlights from an ecoengine photo search">
<meta name="author" content="ecoengine">
<!-- Le styles -->
<link href="http://netdna.bootstrapcdn.com/bootstrap/3.0.2/css/bootstrap.min.css" rel="stylesheet">
<link href="http://netdna.bootstrapcdn.com/bootstrap/3.0.2/css/bootstrap.css" rel="stylesheet">
<link href="http://netdna.bootstrapcdn.com/bootstrap/3.0.2/css/bootstrap-responsive.css" rel="stylesheet">
<script src="http://use.edgefonts.net/quattrocento-sans.js"></script>
</head>
<body>
<div class="container">
<center><h2>Ecoengine Photo Viewer</h2></center>
<table class="table table-striped table-hover" align="center">
<thead>
<tr>
<th>Photo</th>
<th>Authors</th>
<th>Locality / County</th>
<th>Notes</th>
<th>Start Date</th>
</tr>
</thead>
<tbody>
{{#photo_list}}
<tr><td>
<a href="{remote_resource}"><img src="{media_url}" height = 250></a></td>
<td>{authors}</td>
<td>{locality}, {county}</td>
<td>{photog_notes}</td>
<td>{begin_date}</td>
</tr>
{/photo_list}
</tbody>
</table>
</div>
<script src="http://code.jquery.com/jquery-2.0.3.min.js"></script>
<script src="http://netdna.bootstrapcdn.com/bootstrap/3.0.2/js/bootstrap.min.js"></script>
</body>
</html>'
rendered <- glue::glue(template)
rendered <- gsub("<em>", "<b>", rendered)
rendered <- gsub("</em>", "</b>", rendered)
if(is.null(output))
output <- tempfile(fileext = ".html")
write(rendered, file = output)
if(browse) browseURL(output)
}
ropensci/ecoengine documentation built on Sept. 29, 2022, 1:02 p.m.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Defines functions view_photos
Documented in view_photos
#' Browse photo queries in your default browser.
#'
#' @import glue
#' @importFrom assertthat assert_that
#' @importFrom utils browseURL
#' @param input Input, usually output from a call to \code{\link[ecoengine]{ee_photos}}
#' @param output Path and file name for output file. If NULL, a temp file is used.
#' @param browse Browse file in your default browse immediately after file creation.
#' If \code{FALSE}, the file is written, but not opened.
#' @export
#' @examples
#' # view_photos(ee_photos())
#' # Pictures of racoons
#' # view_photos(ee_photos(scientific_name = "Procyon lotor", quiet = TRUE))
#' # or the California Condor
#' # view_photos(ee_photos(scientific_name = "Gymnogyps californianus", quiet = TRUE))
view_photos <- function(input = NULL, output = NULL, browse = TRUE)
{
if(is.null(input))
stop("Please supply some input")
browser()
assert_that(identical(input$type, "photos"))
photo_list <- apply(input$data, 1, function(x) as.list(x))
photo_list <- unname(photo_list)
template <-
'<!DOCTYPE html>
<head>
<meta charset="utf-8">
<title>ecoengine - view highlighs</title>
<meta name="viewport" content="width=device-width, initial-scale=1.0">
<meta name="description" content="View highlights from an ecoengine photo search">
<meta name="author" content="ecoengine">
<!-- Le styles -->
<link href="http://netdna.bootstrapcdn.com/bootstrap/3.0.2/css/bootstrap.min.css" rel="stylesheet">
<link href="http://netdna.bootstrapcdn.com/bootstrap/3.0.2/css/bootstrap.css" rel="stylesheet">
<link href="http://netdna.bootstrapcdn.com/bootstrap/3.0.2/css/bootstrap-responsive.css" rel="stylesheet">
<script src="http://use.edgefonts.net/quattrocento-sans.js"></script>
</head>
<body>
<div class="container">
<center><h2>Ecoengine Photo Viewer</h2></center>
<table class="table table-striped table-hover" align="center">
<thead>
<tr>
<th>Photo</th>
<th>Authors</th>
<th>Locality / County</th>
<th>Notes</th>
<th>Start Date</th>
</tr>
</thead>
<tbody>
{{#photo_list}}
<tr><td>
<a href="{remote_resource}"><img src="{media_url}" height = 250></a></td>
<td>{authors}</td>
<td>{locality}, {county}</td>
<td>{photog_notes}</td>
<td>{begin_date}</td>
</tr>
{/photo_list}
</tbody>
</table>
</div>
<script src="http://code.jquery.com/jquery-2.0.3.min.js"></script>
<script src="http://netdna.bootstrapcdn.com/bootstrap/3.0.2/js/bootstrap.min.js"></script>
</body>
</html>'
rendered <- glue::glue(template)
rendered <- gsub("<em>", "<b>", rendered)
rendered <- gsub("</em>", "</b>", rendered)
if(is.null(output))
output <- tempfile(fileext = ".html")
write(rendered, file = output)
if(browse) browseURL(output)
}
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Embedding an R snippet on your website
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.