Paginate logs from the monitor

[wlandau]

Because of paws-r/paws#721, the log() method of the monitor currently does not use pagination. When that issue is fixed, I will replace this:

crew.aws.batch/R/crew_aws_batch_monitor.R

Lines 753 to 759 in cf88f67

	pages <- list( # TODO: paws.common::paginate() # nolint
	client$get_log_events(
	logGroupName = private$.log_group,
	logStreamName = log_stream_name,
	startFromHead = start_from_head
	)
	)

with this:

pages <- paws.common::paginate(
  client$get_log_events(
    logGroupName = private$.log_group,
    logStreamName = log_stream_name,
    startFromHead = start_from_head
  )
)

and test it with this:

crew.aws.batch/tests/monitor/test-jobs.R

Lines 87 to 129 in 06f92d5

	test_that("job logs", {
	x <- crew_aws_batch_monitor(
	job_definition = "crew-aws-batch-test",
	job_queue = "crew-aws-batch-job-queue",
	region = "us-east-2"
	)
	x$register(
	image = "alpine:latest",
	platform_capabilities = "EC2",
	memory_units = "gigabytes",
	memory = 1,
	cpus = 1,
	seconds_timeout = 600,
	tags = c("crew_aws_batch_1", "crew_aws_batch_2"),
	propagate_tags = TRUE
	)
	on.exit(x$deregister())
	job <- x$submit(
	command = c("echo", "done with container\ndone with job"),
	memory_units = "mebibytes",
	memory = 128,
	cpus = 1
	)
	attempts <- 0L
	done <- c("succeeded", "failed")
	while (!((status <- x$status(id = job$id)$status) %in% done)) {
	message(
	paste(
	"job status:",
	status,
	sample(c("-", "\\", "|", "/"), size = 1L)
	)
	)
	attempts <- attempts + 1L
	if (attempts > 60L) {
	stop("job did not finish")
	}
	Sys.sleep(5)
	}
	log <- x$log(id = job$id)
	expect_true(tibble::is_tibble(log))
	expect_equal(log$message, c("done with container", "done with job"))
	})