R/ec2_instance_info.R

In fdrennan/awsR: Convenience Functions For AWS R Users

#' ec2_instance_info
#' @importFrom lubridate ymd_hms
#' @importFrom purrr map_df
#' @importFrom tibble tibble
#' @importFrom jsonlite toJSON
#' @importFrom dplyr filter
#' @importFrom glue glue
#' @export ec2_instance_info
ec2_instance_info <- function(instance_ids = NULL, return_json = FALSE) {
  ec2_con = client_ec2()
  instances = ec2_con$describe_instances()
  results <- map_df(instances$Reservations, function(x) {
    launch_time        <- ymd_hms(paste0(x$Instances[[1]]$LaunchTime))
    state              <- if_is_null(x$Instances[[1]]$State$Name)
    instance_id        <- if_is_null(x$Instances[[1]]$InstanceId)
    image_id           <- if_is_null(x$Instances[[1]]$ImageId)
    public_ip_address  <- if_is_null(x$Instances[[1]]$PublicIpAddress)
    private_ip_address <- if_is_null(x$Instances[[1]]$PrivateIpAddress)
    instance_type      <- if_is_null(x$Instances[[1]]$InstanceType)
    tibble(
      public_ip_address   = public_ip_address,
      private_ip_address = private_ip_address,
      image_id            = image_id,
      instance_id         = instance_id,
      launch_time         = launch_time,
      instance_type       = instance_type,
      state               = state
    )
  })

  if (!is.null(instance_ids)) {
    results <- filter(results, instance_id %in% instance_ids)
    if(nrow(results) == 0) {
      stop(glue('No instances with instance_id {instance_id}'))
    }
  }

  if (return_json) {
    results <- toJSON(results)
  }

  results
}