fix retrieving drive by name (closes #104)

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: Microsoft365R
 Title: Interface to the 'Microsoft 365' Suite of Cloud Services
-Version: 2.3.3
+Version: 2.3.3.9000
 Authors@R: c(
     person("Hong", "Ooi", , "hongooi73@gmail.com", role = c("aut", "cre")),
     person("Roman", "Zenka", role="ctb"),

NEWS.md

@@ -1,3 +1,8 @@
+# Microsoft365R 2.3.3.9000
+
+- Fix a bug in retrieving a drive by name (#104).
+
+
 # Microsoft365R 2.3.3
 
 - Compatibility update for emayili version 0.6+. Note that this _breaks_ compatibility with emayili versions 0.5 and earlier.

R/add_methods.R

@@ -243,7 +243,7 @@ add_group_methods <- function()
             wch <- which(sapply(drives, function(drv) drv$properties$name == drive_name))
             if(length(wch) != 1)
                 stop("Invalid drive name", call.=FALSE)
-            return(drives[[1]])
+            return(drives[[wch]])
         }
         op <- if(is.null(drive_id))
             "drive"

R/ms_site.R

@@ -71,7 +71,7 @@ public=list(
             wch <- which(sapply(drives, function(drv) drv$properties$name == drive_name))
             if(length(wch) != 1)
                 stop("Invalid drive name", call.=FALSE)
-            return(drives[[1]])
+            return(drives[[wch]])
         }
         op <- if(is.null(drive_id))
             "drive"

R/ms_team.R

@@ -125,7 +125,7 @@ public=list(
             wch <- which(sapply(drives, function(drv) drv$properties$name == drive_name))
             if(length(wch) != 1)
                 stop("Invalid drive name", call.=FALSE)
-            return(drives[[1]])
+            return(drives[[wch]])
         }
         op <- if(is.null(drive_id))
             "drive"