chore: remove get_job() (#491)

Author: toph-allen

NAMESPACE

@@ -97,7 +97,6 @@ export(get_groups)
 export(get_image)
 export(get_integration)
 export(get_integrations)
-export(get_job)
 export(get_job_list)
 export(get_jobs)
 export(get_log)

NEWS.md

@@ -2,6 +2,12 @@
 
 - Removed `prefix` argument to `connect()` function, which was a convenience utility for testing. (#477)
 
+## Breaking changes
+
+- Removed `get_job()`, which was deprecated in 0.6.0. Instead, use `get_jobs()`
+  to get a data frame of jobs, use `get_job_list()` to get a list of job
+  objects, and use `get_log()` to get the log for a job (#491).
+
 # connectapi 0.9.0
 
 - New `set_integrations()` function to set the OAuth integration

R/content.R

@@ -152,19 +152,6 @@ Content <- R6::R6Class(
         )
       }
     },
-    #' @description Return a single job for this content.
-    #' @param key The job key.
-    job = function(key) {
-      warn_experimental("job")
-      guid <- self$content$guid
-      url <- unversioned_url("applications", guid, "job", key)
-      res <- self$connect$GET(url)
-
-      purrr::map(
-        list(res),
-        ~ purrr::list_modify(.x, app_guid = guid)
-      )[[1]]
-    },
     #' @description Terminate a single job for this content item.
     #' @param key The job key.
     register_job_kill_order = function(key) {
@@ -804,31 +791,6 @@ get_jobs <- function(content) {
   parse_connectapi_typed(jobs, connectapi_ptypes$jobs, strict = TRUE)
 }
 
-# TODO: Need to test `logged_error` on a real error
-#'
-#' Retrieve details about a server process
-#' associated with a `content_item`, such as a FastAPI app or a Quarto render.
-#'
-#' @param content A Content object, as returned by `content_item()`
-#' @param key The key for a job
-#'
-#' @family job functions
-#' @family content functions
-#' @export
-get_job <- function(content, key) {
-  lifecycle::deprecate_warn("0.6", "get_job()", "get_log()")
-  scoped_experimental_silence()
-  validate_R6_class(content, "Content")
-
-  job <- content$job(key = key)
-  # protect against becoming a list...
-  job$stdout <- strsplit(job$stdout, "\n")[[1]]
-  job$stderr <- strsplit(job$stderr, "\n")[[1]]
-  # a bit of an abuse
-  # since stdout / stderr / logged_error are here now...
-  parse_connectapi_typed(list(job), connectapi_ptypes$job)
-}
-
 #' Terminate Jobs
 #'
 #' Register a job kill order for one or more jobs associated with a content

R/ptype.R

@@ -194,25 +194,6 @@ connectapi_ptypes <- list(
     image = NA_character_,
     run_as = NA_character_,
   ),
-  job = tibble::tibble(
-    pid = NA_integer_,
-    key = NA_character_,
-    app_id = NA_integer_,
-    variant_id = NA_integer_,
-    bundle_id = NA_integer_,
-    tag = NA_character_,
-    finalized = NA,
-    hostname = NA_character_,
-    origin = NA_character_,
-    stdout = NA_list_,
-    stderr = NA_list_,
-    logged_error = NA_list_,
-    start_time = NA_datetime_,
-    end_time = NA_datetime_,
-    exit_code = NA_integer_,
-    app_guid = NA_character_,
-    variant_key = NA_character_
-  ),
   bundles = tibble::tibble(
     id = NA_character_,
     content_guid = NA_character_,

R/variant.R

@@ -149,15 +149,6 @@ Variant <- R6::R6Class(
         ~ purrr::list_modify(.x, variant_key = self$key)
       )
     },
-    #' @description Return single job for this variant.
-    #' @param key The job key.
-    job = function(key) {
-      pre_job <- super$job(key = key)
-      purrr::map(
-        list(pre_job),
-        ~ purrr::list_modify(.x, variant_key = self$key)
-      )[[1]]
-    },
     #' @description Return the URL for this variant.
     get_url = function() {
       base_content <- super$get_url()