fix: task returned from content_render missing task_id

NEWS.md

@@ -6,6 +6,11 @@
   `user_role` parameters. For example, this allows you to find all licensed
   users on a Connect server. (#311)
 
+## Minor improvements and fixes
+
+- The task returned by `content_render()` now has the expected `task_id`
+  parameter and is able to be polled. (#338)
+
 # connectapi 0.4.0
 
 ## New features

R/content.R

@@ -1007,6 +1007,9 @@ content_render <- function(content, variant_key = NULL) {
     target_variant <- get_variant(content, variant_key)
   }
   render_task <- target_variant$render()
+  # Tasks returned from variant render endpoint look different from those
+  # returned by deploy.
+  render_task$task_id <- render_task$id
 
   VariantTask$new(
     connect = content$connect,

R/deploy.R

@@ -580,7 +580,7 @@ poll_task <- function(task, wait = 1, callback = message) {
   code <- -1
   first <- 0
   while (!finished) {
-    task_data <- con$task(task$get_task()$task_id, wait = wait, first = first)
+    task_data <- con$task(task$task$task_id, wait = wait, first = first)
     finished <- task_data[["finished"]]
     code <- task_data[["code"]]
     first <- task_data[["last"]]

R/parse.R

@@ -185,7 +185,6 @@ tzone <- function(x) {
   attr(x, "tzone")[[1]] %||% ""
 }
 
-
 new_datetime <- function(x = double(), tzone = "") {
   tzone <- tzone %||% ""
   if (is.integer(x)) {

tests/integrated/test-content.R

@@ -402,6 +402,15 @@ test_that("variant_render works", {
   suppressMessages(poll_task(rnd2))
 })
 
+test_that("content_render works", {
+  rnd <- content_render(rmd_content)
+
+  expect_true(validate_R6_class(rnd, "VariantTask"))
+
+  # wait for tasks to complete...
+  suppressMessages(poll_task(rnd))
+})
+
 test_that("get_variant_renderings works", {
   scoped_experimental_silence()