don't actually need a new method

R/ms_drive_item.R

@@ -334,7 +334,7 @@ private=list(
 
         # this is needed to find the correct parent folder for a shared item
         if(private$remote)
-            private$normalise_remote_item()
+            self$sync_fields()
 
         parent <- self$properties$parentReference
         name <- self$properties$name
@@ -364,17 +364,6 @@ private=list(
     {
         if(self$is_folder())
             stop("This method is only applicable for a file item", call.=FALSE)
-    },
-
-    normalise_remote_item=function()
-    {
-        # if this was a shared item, replace properties with those obtained from original drive
-        if(!private$remote)
-            return(NULL)
-        parent <- self$properties$parentReference
-        op <- file.path("drives", parent$driveId, "items", self$properties$id)
-        self$properties <- call_graph_endpoint(self$token, op)
-        private$remote <- FALSE
     }
 ))