Update IRICData-class.R

R/IRICData-class.R

@@ -147,7 +147,7 @@ setMethod(
   signature='IRICData',
   definition=function(object, session, id_file) {
     resp = rvest::jump_to(session, paste(object@url,'secure/datafiles/json/annotation', id_file, sep='/'))
-    metadata = fromJSON(rawToChar(resp$response$content))
+    metadata = jsonlite::fromJSON(rawToChar(resp$response$content))
     return(metadata)
   }
 )
@@ -175,7 +175,7 @@ setMethod(
             if (tmp[1] == 'download'){ #annotation files will start with "annotation" isntead of "download"
                 file_id <- tmp[2]
                 resp <- rvest::jump_to(session, paste(url_,'secure/datafiles/json/metadata', file_id, sep='/'))
-                metadata <- fromJSON(rawToChar(resp$response$content))
+                metadata <- jsonlite::fromJSON(rawToChar(resp$response$content))
                 metadata$file_id <- file_id
                 return(metadata)
             }