使用R列出和访问owncloud公共文件夹上的文件

install.packages("httr")
install.packages("jsonlite")

library(httr)
library(jsonlite)

get_owncloud_files <- function(url, username, password) {
  # 构建API请求的URL
  api_url <- paste0(url, "/ocs/v1.php/apps/files_sharing/api/v1/shares?format=json")
  
  # 发送GET请求并进行身份验证
  response <- GET(api_url, authenticate(username, password))
  
  # 解析JSON响应
  data <- fromJSON(content(response, "text"))
  
  # 提取文件列表
  files <- data$ocs$data
  
  # 返回文件列表
  return(files)
}

owncloud_url <- "https://example.com/owncloud"
username <- "your_username"
password <- "your_password"

files <- get_owncloud_files(owncloud_url, username, password)