update comeln so that it matches the current version of the third par…

…ty app resource public

comeln/R/download.R

@@ -17,11 +17,7 @@ download <- function(session, folder) {
 
   query <- getQueryString()
   url <- paste0(ipaddress)
-  token <- query$token 
-  response <- GET(paste0(
-    url,
-    "/api/v1/public_third_party_app/download?token=", token
-  ))
+  response <- GET(url)
   if(status_code(response)[[1]] != 200) {
     showNotification("File could not be downloaded from ELN", duration = 0)
     Sys.sleep(30)

comeln/R/upload.R

@@ -17,14 +17,12 @@ upload <- function(session, filepath, new_name) {
 
   query <- getQueryString()
   url <- paste0(ipaddress)
-  token <- query$token 
 
   file_extension <- tools::file_ext(filepath)
-  request <- POST(paste0(
-      url,
-      "/api/v1/public_third_party_app/upload?token=", token),
-      body = list(file = upload_file(filepath), attachmentName = new_name,
-                  fileType = file_extension))             
+  request <- POST(
+    url,
+    body = list(file = upload_file(filepath), attachmentName = new_name,
+                  fileType = file_extension) )
   response <- content(request)
   showNotification(response, duration = 0)
 }