从R中的GoogleCloud存储下载/加载图像文件

问题描述

我设法使用googleCloudStorageR生成了从r到Google云存储的直接访问。 我要编写的脚本的最终目标是能够从Cloud Storage中提取记录并将其保存到本地/或共享驱动器。 但是，当前我只剩下代表图像文件的行（以字符作为类），例如“ images / sheet_200099_20201003_031018_404-​​20201003101022214.jpg”就是这样的行。

问题是如何1）将它们导出为实际的jpeg，以及2）将它们保存为本地目录作为实际的图像？我很少使用图像数据。

以下是我的有效代码，可让我访问云存储记录。当然，此代码不会在您的计算机上运行。身份验证的初始代码已跳过。

googleAuthR::gar_auth(use_oob = TRUE)

## Get bucket info
gcs_list_buckets(projectId = "vcr-dev-test")
test <- gcs_list_objects(bucket = "gpi-app-storage-dev-test",prefix = "images/sheet_200099_20201003") 

# bucket info
bucket <- "gpi-app-storage-dev-test"
bucket_info <- gcs_get_bucket(bucket)
bucket_info

objects <- gcs_list_objects(bucket,prefix = "images/sheet_200099_20201003")

parsed_download <- gcs_get_object(bucket = bucket,object_name = objects$name[[1]])
raw_data <- readBin("parsed_download","raw")

gcs_parse_download(objects$name[[1]])

test_save_image <- gcs_save_image(objects$name,bucket = bucket)
gcs_load(test_save_image$name,bucket = bucket)

最后一行代码返回以下错误：

Error in curl::curl_fetch_disk(url,x$path,handle = handle): Failed to open file C:\Documents and Settings\karim.kardous\Desktop\images\sheet_200099_20201003_031018_404-20201003101022214.jpg.

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）