WIP - handling cumulative val

checks
gp1981 · May 14, 2024 · 87b8db2 · 87b8db2
1 parent 6f6c99a
commit 87b8db2
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/code/Functions/data_retrieval.R b/code/Functions/data_retrieval.R
@@ -811,10 +811,10 @@ IS_CF_std <- function(df_Facts) {
   df_std_IS_CF <- df_std_IS_CF %>% 
     filter((Cumulative_quarters ==1 & !Modified_Quarterly_val) | (Cumulative_quarters !=1 & Modified_Quarterly_val))
 
-  # # Prepare dataframe for pivot
-  # df_std_IS_CF_pivot <- df_std_IS_CF %>%
-  #   distinct(description, year_end, quarter_end, Quarterly_val, .keep_all = TRUE)
-  # 
+  # Prepare dataframe for pivot ---->>>> TO CHECK - Cost of Revenue <<<<<
+  df_std_IS_CF_pivot <- df_std_IS_CF %>%
+    distinct(description, year_end, quarter_end, Quarterly_val, .keep_all = TRUE)
+
   df_std_IS_CF_pivot <- df_std_IS_CF %>%
     group_by(end,standardized_label,year_end,quarter_end,accn,form,cik,entityName,sic,sicDescription,tickers,Financial.Report) %>% 
     summarise(