R/getstatus.R

In PrecisionLivestockManagement/AppAnita: This package contains functions for use with Anita's App

#' Retrieves GPS data from the AnitaGPS collection in the PLMResearch database.
#'
#' This function retrieves GPS data from Anita's Belmont trial to the MongoDB database.
#' @name getstatus
#' @param timestamp a list of timestamps
#' @param status a list of cattle statuses to search for
#' @param username username for use with Anita's App
#' @param password password for use with Anita's App
#' @return returns the cattle spatial information
#' @author Anita Chang \email{a.chang@@cqu.edu.au}
#' @import mongolite
#' @import dplyr
#' @import rgdal
#' @export


getstatus <- function(RFID = NULL, username = user, password = pass){

  if(is.null(username)||is.null(password)){
    username = keyring::key_list("DMMongoDB")[1,2]
    password =  keyring::key_get("DMMongoDB", username)}

  url <- sprintf("mongodb://%s:%s@datamuster-shard-00-00-8mplm.mongodb.net:27017,datamuster-shard-00-01-8mplm.mongodb.net:27017,datamuster-shard-00-02-8mplm.mongodb.net:27017/test?ssl=true&replicaSet=DataMuster-shard-0&authSource=admin", username, password)
  status <- mongo(collection = "AnitaStatus", db = "PLMResearch", url = url, verbose = T)

  if(is.null(RFID)){
    info <- status$find()
  } else {
    RFID <- paste(unlist(RFID), collapse = '", "')
    RFID <- sprintf('"RFID":{"$in":["%s"]},', RFID)
    RFID <- paste0("{", RFID, "}")

    if(nchar(RFID)==2){}else{
      RFID <- substr(RFID, 1 , nchar(RFID)-2)
      RFID <- paste0(RFID, "}")}

    info <- status$find(query = RFID)
  }
}