R/dbpf_device_report.R

In geocryology/PermafrostDB: PermafrostDB

# =============================================================================
#'
#' @title Print a report on a specific device
#'
#' @description Given a device serial number, this function return a data frame
#'              showing the locations where this device has been.
#'
#' @param con Database connection object, as returned by \code{\link{dbpf_con}}
#' 
#' @param serial_number Serial number of device to query
#'
#' @return Prints information to screen.
#'
#' @export
#' @examples
#' \dontrun{
#' con <- dbpf_con()
#' dbpf_device_report(con, "E509DA")
#' }
#' @author Stephan Gruber <stephan.gruber@@carleton.ca>
# =============================================================================

dbpf_device_report <- function(con, serial_number) {

  if (missing(con)){
    con <- dbpf_con()
  }

    exists <- dbpf_device_exists(con, serial_number)
    if (exists == 1) {
    		loc <- dbpf_device_locations(con, serial_number)
    	sen <- dbpf_device_sensors(con, serial_number)
    	query <- paste0("SELECT * FROM devices WHERE serial_number = '", serial_number, "'")
        dev <- dbGetQuery(con, query)

    	writeLines("\n\n")
    	print(paste("=== DETAILS for device", serial_number, "============="))
    	print(dev)
    	writeLines("\n\n")
    	print(paste("=== LOCATION HISTORY on device", serial_number, "============="))
    	print(loc)
    	writeLines("\n")
    	print(paste("=== SENSORS on device", serial_number, "======================"))
    	print(sen)
    	writeLines("\n\n")
    } else {
    	writeLines("\n\n")
    	print(paste("=== Device", serial_number, " DOES NOT EXIST"))
    	writeLines("\n")
    }
}