fix #111

eblondel · Jan 10, 2023 · 23188de · 23188de
1 parent d5083c1
commit 23188de
Show file tree

Hide file tree

Showing 2 changed files with 36 additions and 0 deletions.
diff --git a/R/ZenodoManager.R b/R/ZenodoManager.R
@@ -327,6 +327,17 @@ ZenodoManager <-  R6Class("ZenodoManager",
       return(out)
     },
 
+    #' @description Get grants by name.
+    #' @param name name
+    #' @param pretty Prettify the output. By default the argument \code{pretty} is set to 
+    #'    \code{TRUE} which will returns the list of grants as \code{data.frame}.
+    #'    Set \code{pretty = FALSE} to get the raw list of grants
+    #' @return list of grants as \code{data.frame} or \code{list}
+    getGrantsByName = function(name, pretty = TRUE){
+      query = sprintf("title:%s", URLencode(paste0("\"",name,"\"")))
+      self$getGrants(q = query, pretty = pretty)
+    },
+
     #' @description Get grant by Id.
     #' @param id grant id
     #' @return the grant

diff --git a/man/ZenodoManager.Rd b/man/ZenodoManager.Rd