R/image.R

In phenocopter/PhenoCopterAPI:

# * Author:    Bangyou Zheng (Bangyou.Zheng@csiro.au)
# * Created:   07:36 AM Thursday, 25 July 2019
# * Copyright: AS IS


#' Get images for a flight
#'
#' @param id The flight id
#'
#' @return A list with images information
#' @export
#'
#' @examples
#' \dontrun{
#' pc_login()
#' get_flight_image(1)
#' }
get_flight_image <- function(flight, image = NULL) {
    .check_id(flight)
    url <- paste0('flight/', flight, '/images')
    if (!is.null(image)) {
        url <- paste0('flight/', flight, '/image/', image)
    }
    response <- request(httr::GET, url)
    .stop_for_status(response)
    response <- httr::content(response)
    response
}


add_flight_image <- function(flight, data, overwrite = FALSE) {
    .check_id(flight)
    images <- get_flight_image(flight)
    if (length(images) > 0 & overwrite == FALSE) {
        warning('Image information already stored into database. The database is not overwrote.')
		return (NULL);
    }
    if (overwrite == TRUE) {
        stop("Not implemented overwrite = TRUE.")
    }
    # Check columns
    cols <- c('flightId', 'latitude', 'longitude', 'elevation', 'width', 'height',
              'datetimeOriginal', 'original')
    pos <- cols %in% names(data)
    if (sum(pos) != length(cols)) {
        stop('Cannot find columns: ', paste(cols[!pos], collapse = ', '))
    }
    # Check the time
    if (!('POSIXct' %in% class(data$datetimeOriginal))) {
        stop('datetimeOriginal column should be a timestamp format')
    }
    # Check flight ID
    fid <- unique(data$flightId)
    if (length(fid) > 1) {
        stop('Multiple flight ID is in the data frame')
    }
    if (fid != flight) {
        stop('Flight ID is not matched')
    }
    # Generate files for each capture point in case of multiple band flight
    generate_file <- function(df) {
        res <- df %>%
            dplyr::select(flightId, latitude, longitude, elevation, width, height, datetimeOriginal) %>%
            slice(1)
        # Generate band if it is missing
        if (!has_name(df, 'band')) {
            df$band <- seq_len(nrow(df))
        }
        res$imageFile = list(df %>%
                                 dplyr::select(original, band))
        res
    }
    if (!has_name(data, 'enable')) {
        data$enable = 1;
    }
    new <- data %>%
        mutate(datetimeOriginal = format(datetimeOriginal, format = '%Y-%m-%dT%H:%M:%S%z')) %>%
        group_by(flightId, latitude, longitude, elevation, width, height, datetimeOriginal) %>%
        do(generate_file(.)) %>%
        arrange(datetimeOriginal)
    response <- request(httr::POST, paste0('flight/', flight, '/images'),
                            body = jsonlite::toJSON(new, auto_unbox = TRUE,
                                                    null = 'null', digits = 20),
                        config = httr::content_type('application/json'))
    .stop_for_status(response)
    response <- httr::content(response)
    response

}

delete_flight_image <- function(flight) {
    .check_id(flight)
    response <- request(httr::DELETE, paste0('flight/', flight, '/images'))
    .stop_for_status(response)
    response <- httr::content(response)
    response
}