`get_content()` discards tags when guid parameter is provided

[edavidaja]

This is kind of surprising?

library(connectapi)
library(dplyr)
#> 
#> Attaching package: 'dplyr'
#> The following objects are masked from 'package:stats':
#> 
#>     filter, lag
#> The following objects are masked from 'package:base':
#> 
#>     intersect, setdiff, setequal, union

client <- connect()
#> Defining Connect with server:

CONTENT_GUID <- "8cd033a0-7e0c-415d-8136-9da1a755c63c"

target_content <- content_item(client, CONTENT_GUID)
get_content_tags(target_content)
#> Posit Connect Tag Tree (content)
#> ├── FK_cat2
#> │   └── sub2
#> └── Action
#>    └── Fast and Furious

with_guid <- get_content(client, guid = CONTENT_GUID)
"tags" %in% names(with_guid)
#> [1] FALSE

no_guid <- get_content(client) |> filter(guid == CONTENT_GUID)
"tags" %in% names(no_guid)
#> [1] TRUE

^{Created on 2025-05-09 with reprex v2.1.1}

[karawoo]

Thanks for the report, looks like when we query the API by GUID we don't respect the include arg (which defaults to including tags), whereas when we're listing all content we do:

connectapi/R/connect.R

Lines 497 to 509 in a1ce77a

	include = "tags,owner"
	) {
	if (!is.null(guid)) {
	return(self$GET(v1_url("content", guid)))
	}
	query <- list(
	owner_guid = owner_guid,
	name = name,
	include = include
	)
	path <- v1_url("content")
	self$GET(path, query = query)

[toph-allen]

Thanks for tackling this @karawoo!!