Я очень плохо знаком с R, так что будьте нежнее. Мне было поручено внести некоторые изменения в уже существующий проект.
У меня есть код:
#SHINY_ROOT <- getwd()
#ARCHIVE_FILEPATH <- file.path(SHINY_ROOT, 'Data', 'archived_pqs.csv')
Я хочу переместить 'archived_pqs.csv' в S3 (Amazon Web Services), желательно, внося как можно меньше изменений в остальной код.
Моей первой мыслью было, что я смогу сделать это:
ARCHIVE_FILEPATH <- s3tools::s3_path_to_full_df("alpha-pq-tool-data/Data/archived_pqs.csv")
Где 'alpha-pq-tool-data' - это сегмент S3.
Я проверил это, и он действительно вытягивает фрейм данных:
df <-s3tools::s3_path_to_full_df("alpha-pq-tool-data/Data/archived_pqs.csv")
Проблема в том, что когда я запускаю другие функции, которые работают следующим образом:
if(file.exists(ARCHIVE_FILEPATH)) {
date <- last_answer_date()}
Я получаю эту ошибку:
Error in file.exists(ARCHIVE_FILEPATH) : invalid 'file' argument
Called from: file.exists(ARCHIVE_FILEPATH)
Есть ли простой способ сделать это при минимальных изменениях? Могу ли я больше не использовать функцию file.exists, потому что данные в S3?