Tibble output via tibblify

.Rbuildignore

@@ -12,3 +12,4 @@
 ^CODE_OF_CONDUCT\.md$
 ^docs$
 ^_pkgdown\.yml$
+^script$

DESCRIPTION

@@ -1,7 +1,7 @@
-Package: clickrup
 Type: Package
+Package: clickrup
 Title: Interacting with the ClickUp v2 API from R
-Version: 0.0.6
+Version: 0.0.6.9020
 Date: 2021-12-12
 Authors@R: 
     c(person(given = "Peter",
@@ -12,18 +12,28 @@ Authors@R:
       person(given = "Kirill",
              family = "M\u00fcller",
              role = "aut",
-             email = "[email protected]"))
+             email = "[email protected]"))
 Maintainer: Peter Solymos <[email protected]>
 Description: Work with the ClickUp productivity app from R to
     manage tasks, goals, time tracking, and more.
 License: MIT + file LICENSE
-LazyLoad: yes
-LazyData: true
-Imports: httr, jsonlite, rlang
-Suggests: knitr
 URL: https://github.com/psolymos/clickrup
 BugReports: https://github.com/psolymos/clickrup/issues
-VignetteBuilder: knitr
-RoxygenNote: 7.2.3
+Imports: 
+    dttr2,
+    httr,
+    jsonlite,
+    rlang,
+    tibble,
+    tibblify (>= 0.3.0)
+Suggests: 
+    fansi,
+    knitr,
+    testthat (>= 3.0.0)
+VignetteBuilder: 
+    knitr
+Config/testthat/edition: 3
 Encoding: UTF-8
+LazyLoad: yes
 Roxygen: list(markdown = TRUE)
+RoxygenNote: 7.3.1

NAMESPACE

@@ -128,3 +128,118 @@ export(cu_update_task)
 export(cu_update_time_entry)
 export(cu_update_view)
 export(cu_update_webhook)
+export(cuf_add_dependency)
+export(cuf_add_guest_to_folder)
+export(cuf_add_guest_to_list)
+export(cuf_add_guest_to_task)
+export(cuf_add_tag_to_task)
+export(cuf_add_tags_from_time_entries)
+export(cuf_add_task_link)
+export(cuf_change_tag_names_from_time_entries)
+export(cuf_create_checklist)
+export(cuf_create_checklist_item)
+export(cuf_create_folder)
+export(cuf_create_folder_view)
+export(cuf_create_folderless_list)
+export(cuf_create_goal)
+export(cuf_create_key_result)
+export(cuf_create_list)
+export(cuf_create_list_view)
+export(cuf_create_space)
+export(cuf_create_space_tag)
+export(cuf_create_space_view)
+export(cuf_create_task)
+export(cuf_create_task_from_template)
+export(cuf_create_team_view)
+export(cuf_create_time_entry)
+export(cuf_create_webhook)
+export(cuf_delete_checklist)
+export(cuf_delete_checklist_item)
+export(cuf_delete_comment)
+export(cuf_delete_dependency)
+export(cuf_delete_folder)
+export(cuf_delete_goal)
+export(cuf_delete_key_result)
+export(cuf_delete_list)
+export(cuf_delete_space)
+export(cuf_delete_space_tag)
+export(cuf_delete_task)
+export(cuf_delete_time_entry)
+export(cuf_delete_time_tracked)
+export(cuf_delete_view)
+export(cuf_delete_webhook)
+export(cuf_edit_checklist)
+export(cuf_edit_checklist_item)
+export(cuf_edit_guest_on_workspace)
+export(cuf_edit_key_result)
+export(cuf_edit_space_tag)
+export(cuf_edit_time_tracked)
+export(cuf_edit_user_on_workspace)
+export(cuf_get_access_token)
+export(cuf_get_accessible_custom_fields)
+export(cuf_get_all_tags_from_time_entries)
+export(cuf_get_authorized_teams)
+export(cuf_get_authorized_user)
+export(cuf_get_filtered_team_tasks)
+export(cuf_get_folder)
+export(cuf_get_folder_views)
+export(cuf_get_folders)
+export(cuf_get_goal)
+export(cuf_get_goals)
+export(cuf_get_guest)
+export(cuf_get_list)
+export(cuf_get_list_comments)
+export(cuf_get_list_members)
+export(cuf_get_list_views)
+export(cuf_get_lists)
+export(cuf_get_lists_folderless)
+export(cuf_get_running_time_entry)
+export(cuf_get_shared)
+export(cuf_get_singular_time_entry)
+export(cuf_get_space)
+export(cuf_get_space_tags)
+export(cuf_get_space_views)
+export(cuf_get_spaces)
+export(cuf_get_task)
+export(cuf_get_task_comments)
+export(cuf_get_task_members)
+export(cuf_get_task_templates)
+export(cuf_get_tasks)
+export(cuf_get_team_views)
+export(cuf_get_teams)
+export(cuf_get_time_entries_within_date_range)
+export(cuf_get_time_entry_history)
+export(cuf_get_tracked_time)
+export(cuf_get_user)
+export(cuf_get_view)
+export(cuf_get_view_comments)
+export(cuf_get_view_tasks)
+export(cuf_get_webhooks)
+export(cuf_invite_guest_to_workspace)
+export(cuf_invite_user_to_workspace)
+export(cuf_post_list_comment)
+export(cuf_post_task_attachment)
+export(cuf_post_task_comment)
+export(cuf_post_view_comment)
+export(cuf_put_update_comment)
+export(cuf_remove_field_value)
+export(cuf_remove_guest_from_folder)
+export(cuf_remove_guest_from_list)
+export(cuf_remove_guest_from_task)
+export(cuf_remove_guest_from_workspace)
+export(cuf_remove_tags_from_time_entries)
+export(cuf_remove_user_from_workspace)
+export(cuf_set_custom_field_value)
+export(cuf_start_time_entry)
+export(cuf_stop_time_entry)
+export(cuf_track_time)
+export(cuf_update_folder)
+export(cuf_update_goal)
+export(cuf_update_list)
+export(cuf_update_space)
+export(cuf_update_task)
+export(cuf_update_time_entry)
+export(cuf_update_view)
+export(cuf_update_webhook)
+import(tibble)
+import(tibblify)

R/aaa.R

@@ -0,0 +1,14 @@
+tib_custom <- function(key, transform, required = TRUE) {
+    # https://github.com/mgirlich/tibblify/issues/183
+
+    transform <- rlang::as_function(transform)
+    ptype <- transform(character())
+
+    tib_scalar(
+      key,
+      ptype,
+      ptype_inner = character(),
+      transform = transform,
+      required = required
+    )
+}

R/api-tasks.R

@@ -294,9 +294,9 @@ cu_get_tasks <- function(list_id, archived=FALSE, ..., cu_token = NULL) {
 ##     task_id
 ##     Example: 9hz.
 ##     String
-cu_get_task <- function(task_id, cu_token = NULL) {
+cu_get_task <- function(task_id, ..., cu_token = NULL) {
     task_id <- cu_task_id(task_id)
-    .cu_get("task", task_id, cu_token = cu_token)
+    .cu_get("task", task_id, query = list(...), cu_token = cu_token)
 }
 
 

R/cu-date.R

@@ -51,6 +51,9 @@ cu_date_from <- function(ms, tz = NULL, ...) {
 #' @export
 #' @rdname cu-date
 ## turning POSIXct to unix time
-cu_date_to <- function(dt) {
+cu_date_to <- function(dt, tz = NULL) {
+    if (is.null(tz))
+        tz <- getOption("cu_options")$tz
+
     as.character(round(unclass(as.POSIXct(dt))*1000))
 }

R/cu-get-all-team-tasks.R

@@ -2,6 +2,8 @@
 #'
 #' The wrapper function uses [cu_get_filtered_team_tasks()]
 #' but takes care of paging.
+#' No longer needed because paging is now handled automatically for all functions,
+#' including [cu_get_filtered_team_tasks()].
 #'
 #' @param team_id Team ID of tasks.
 #' @param ... All query parameters for [cu_get_filtered_team_tasks()]
@@ -20,6 +22,8 @@
 
 ## include_closed = FALSE by default
 cu_get_all_team_tasks <- function(team_id, ...) {
+    .Deprecated("cu_get_filtered_team_tasks")
+
     p <- 0
     done <- FALSE
     out <- list(tasks=NULL)

R/df-attachments.R

@@ -0,0 +1,26 @@
+
+#' @export
+#' @rdname api-attachment
+
+
+cuf_post_task_attachment <- function(task_id, attachment, filename=NULL, ...) {
+    task_id <- cu_task_id(task_id)
+    if (is.null(filename))
+        filename <- basename(attachment)
+    resp <- httr::POST(
+        httr::modify_url(getOption("cu_options")$baseurl,
+            path = .cu_path("task", task_id, "attachment")),
+        httr::add_headers(
+            Authorization = cu_get_pat(),
+            "Content-Type" = "multipart/form-data"),
+        httr::accept_json(),
+        body=list(
+            filename=filename,
+            attachment=httr::upload_file(attachment, ...)),
+        encode="multipart",
+        httr::user_agent(getOption("cu_options")$useragent))
+    cont <- .cu_process(resp)
+    class(cont) <- c(class(cont), "cu_post")
+    cont
+}
+

R/df-authorization.R

@@ -0,0 +1,26 @@
+
+#' @rdname api-authorization
+NULL
+
+#' @export
+#' @rdname api-authorization
+cuf_get_access_token <- function(client_id, client_secret, code) {
+    .cu_post("oauth", "token",
+        query=list(client_id=client_id,
+                   client_secret=client_secret,
+                   code=code))
+}
+
+
+#' @export
+#' @rdname api-authorization
+cuf_get_authorized_user <- function() {
+    .cu_get("user")
+}
+
+
+#' @export
+#' @rdname api-authorization
+cuf_get_authorized_teams <- function() {
+    .cu_get("team")
+}

R/df-checklists.R

@@ -0,0 +1,65 @@
+
+#' @rdname api-checklists
+NULL
+
+#' @export
+#' @rdname api-checklists
+cuf_create_checklist <- function(task_id, name) {
+    task_id <- cu_task_id(task_id)
+    .cu_post("task", task_id, "checklist",
+        body=list(name = name))
+}
+#cu_create_checklist("8ach57", "New checklist")
+
+
+#' @export
+#' @rdname api-checklists
+cuf_edit_checklist <- function(checklist_id, position) {
+    .cu_put("checklist", checklist_id,
+        body=list(position = position))
+}
+#cu_edit_checklist("4bc57892-a1a6-44f4-894d-d98de71f4054", 0)
+
+
+#' @export
+#' @rdname api-checklists
+cuf_delete_checklist <- function(checklist_id) {
+    .cu_delete("checklist", checklist_id)
+}
+#cu_delete_checklist("4bc57892-a1a6-44f4-894d-d98de71f4054")
+
+
+#' @export
+#' @rdname api-checklists
+cuf_create_checklist_item <- function(checklist_id, name, ...) {
+    .cu_post("checklist", checklist_id, "checklist_item",
+        body=list(name = name, ...))
+}
+#cu_create_checklist_item("40146d1e-efe5-4140-a0ba-ad39c9dec18c",
+#                              name="New item 1")
+#cu_create_checklist_item("40146d1e-efe5-4140-a0ba-ad39c9dec18c",
+#                              name="New item 2",  assignee=4471793)
+#cu_create_checklist_item("40146d1e-efe5-4140-a0ba-ad39c9dec18c",
+#                              name="New item 3",
+#                              assignee=NA, resolved=TRUE, parent=NA)
+
+
+#' @export
+#' @rdname api-checklists
+cuf_edit_checklist_item <- function(checklist_id, checklist_item_id, ...) {
+    .cu_put("checklist", checklist_id, "checklist_item", checklist_item_id,
+        body=list(...))
+}
+#cu_put_edit_checklist_item("40146d1e-efe5-4140-a0ba-ad39c9dec18c",
+#    "8849fcba-9db4-4400-a78e-cfced2ae6ce0",
+#    name="Renamed to that", resolved=TRUE)
+
+
+#' @export
+#' @rdname api-checklists
+cuf_delete_checklist_item <- function(checklist_id, checklist_item_id) {
+    .cu_delete("checklist", checklist_id, "checklist_item", checklist_item_id)
+}
+#cu_delete_checklist_item("40146d1e-efe5-4140-a0ba-ad39c9dec18c",
+#    "8849fcba-9db4-4400-a78e-cfced2ae6ce0")
+