Merge pull request #195 from rstudio/aron-issue-194

Content$delete_tag removes that tag from a content item

Author: aronatkins

NEWS.md

@@ -3,6 +3,8 @@
 - BREAKING: The functions `Connect$download_bundle()` and
   `Connect$bundle_delete()` have been removed. Use `Content$bundle_download()`
   and `Content$bundle_delete()` instead.
+- `Content$tag_delete()` removes the tag from the target content item rather
+  than removing the tag entirely. (#194)
 
 # connectapi 0.1.3.1
 

R/connect.R

@@ -538,11 +538,20 @@ Connect <- R6::R6Class(
       self$POST(
         path = glue::glue("v1/content/{content_id}/tags"),
         body = list(
-          tag_id = tag_id
+          tag_id = as.character(tag_id)
         )
       )
     },
 
+    #' @description Remove a tag from a content item.
+    #' @param content_id The content identifier.
+    #' @param tag_id The tag identifier.
+    remove_content_tag = function(content_id, tag_id) {
+      invisible(self$DELETE(
+        path = glue::glue("v1/content/{content_id}/tags/{tag_id}")
+      ))
+    },
+
     # users -----------------------------------------------
 
     #' @description Get user details.

R/content.R

@@ -141,9 +141,9 @@ Content <- R6::R6Class(
     },
     #' @description Remove a tag for this content.
     #' @param id The tag identifier.
-    tag_delete = function(id) {
+    tag_delete = function(tag_id) {
       # note that deleting the parent tag deletes all children
-      self$get_connect()$tag_delete(id)
+      self$get_connect()$remove_content_tag(self$get_content()$guid, tag_id = tag_id)
     },
     #' @description The tags for this content.
     tags = function() {