如果數據框為空，如何不 write_csv

Question

我有一個 dataframe 每天通過 sql 查詢收集。 有時它會有行，有時它不會。 然后我將其 write_csv 寫入一個觸發自動 email 的 onedrive 位置。

df 和這樣的代碼（如果相關）：

df<-structure(list(PROTOCOL_ID = numeric(0), PROTOCOL_NO = character(0), 
    STATUS = character(0), STATUS_DATE = structure(numeric(0), tzone = "", class = c("POSIXct", 
    "POSIXt")), PROCESSED_FLAG = character(0), INITIATOR_CODE = numeric(0), 
    CHANGE_REASON_CODE = numeric(0), PR_STATUS_ID = numeric(0), 
    COMMENTS = character(0), CREATED_DATE = structure(numeric(0), tzone = "", class = c("POSIXct", 
    "POSIXt")), CREATED_USER = character(0), MODIFIED_DATE = structure(numeric(0), tzone = "", class = c("POSIXct", 
    "POSIXt")), MODIFIED_USER = character(0), OUTCOME_ID = numeric(0), 
    IRB_NO = character(0), NCT_NUMBER = character(0), PI_NAMES = character(0)), row.names = integer(0), class = "data.frame")
write_csv(df, "df.csv")

如果 dataframe 當天的行數為零，我寧願它不寫 csv。 我敢肯定，我可以想出一個步驟，如果為空，則刪除數據框，然后 write_csv 行會出錯，但我寧願不這樣做。 有沒有一種簡單的方法可以“關閉”寫入？

Answer 1

當行數大於 0 時，我們可以有一個條件只寫入 csv

if(nrow(df) > 0) readr::write_csv(df, "df.csv")