wip: add S3 implementation of epi_archive

Author: dshemetov

DESCRIPTION

@@ -73,16 +73,19 @@ Depends:
 URL: https://cmu-delphi.github.io/epiprocess/
 Collate:
     'archive.R'
+    'archive_new.R'
     'autoplot.R'
     'correlation.R'
     'data.R'
     'epi_df.R'
     'epiprocess.R'
     'group_by_epi_df_methods.R'
     'methods-epi_archive.R'
+    'grouped_archive_new.R'
     'grouped_epi_archive.R'
     'growth_rate.R'
     'key_colnames.R'
+    'methods-epi_archive_new.R'
     'methods-epi_df.R'
     'outliers.R'
     'reexports.R'

NAMESPACE

@@ -6,40 +6,58 @@ S3method(as_epi_df,data.frame)
 S3method(as_epi_df,epi_df)
 S3method(as_epi_df,tbl_df)
 S3method(as_epi_df,tbl_ts)
+S3method(as_of,epi_archive2)
 S3method(as_tibble,epi_df)
 S3method(as_tsibble,epi_df)
 S3method(autoplot,epi_df)
+S3method(clone,epi_archive2)
+S3method(clone,grouped_epi_archive2)
 S3method(dplyr_col_modify,col_modify_recorder_df)
 S3method(dplyr_col_modify,epi_df)
 S3method(dplyr_reconstruct,epi_df)
 S3method(dplyr_row_slice,epi_df)
 S3method(epix_truncate_versions_after,epi_archive)
+S3method(epix_truncate_versions_after,epi_archive2)
 S3method(epix_truncate_versions_after,grouped_epi_archive)
+S3method(epix_truncate_versions_after,grouped_epi_archive2)
 S3method(group_by,epi_archive)
+S3method(group_by,epi_archive2)
 S3method(group_by,epi_df)
 S3method(group_by,grouped_epi_archive)
+S3method(group_by,grouped_epi_archive2)
 S3method(group_by_drop_default,grouped_epi_archive)
+S3method(group_by_drop_default,grouped_epi_archive2)
 S3method(group_modify,epi_df)
 S3method(groups,grouped_epi_archive)
+S3method(groups,grouped_epi_archive2)
 S3method(key_colnames,data.frame)
 S3method(key_colnames,default)
 S3method(key_colnames,epi_archive)
 S3method(key_colnames,epi_df)
 S3method(next_after,Date)
 S3method(next_after,integer)
+S3method(print,epi_archive2)
 S3method(print,epi_df)
+S3method(print,grouped_epi_archive2)
 S3method(select,epi_df)
+S3method(slide,grouped_epi_archive2)
 S3method(summary,epi_df)
+S3method(truncate_versions_after,grouped_epi_archive2)
 S3method(ungroup,epi_df)
 S3method(ungroup,grouped_epi_archive)
+S3method(ungroup,grouped_epi_archive2)
 S3method(unnest,epi_df)
 export("%>%")
 export(archive_cases_dv_subset)
+export(archive_cases_dv_subset_2)
 export(arrange)
 export(as_epi_archive)
+export(as_epi_archive2)
 export(as_epi_df)
+export(as_of)
 export(as_tsibble)
 export(autoplot)
+export(clone)
 export(detect_outlr)
 export(detect_outlr_rm)
 export(detect_outlr_stl)
@@ -50,24 +68,33 @@ export(epi_slide_mean)
 export(epi_slide_opt)
 export(epi_slide_sum)
 export(epix_as_of)
+export(epix_as_of2)
 export(epix_merge)
+export(epix_merge2)
 export(epix_slide)
+export(epix_slide2)
 export(epix_truncate_versions_after)
+export(fill_through_version)
 export(filter)
 export(group_by)
 export(group_modify)
 export(growth_rate)
 export(is_epi_archive)
+export(is_epi_archive2)
 export(is_epi_df)
 export(is_grouped_epi_archive)
+export(is_grouped_epi_archive2)
 export(key_colnames)
 export(max_version_with_row_in)
 export(mutate)
+export(new_epi_archive2)
 export(new_epi_df)
 export(next_after)
 export(relocate)
 export(rename)
 export(slice)
+export(slide)
+export(truncate_versions_after)
 export(ungroup)
 export(unnest)
 importFrom(R6,R6Class)

R/archive.R

@@ -514,9 +514,6 @@ epi_archive <-
               fromLast = TRUE
             ) %>%
             tibble::as_tibble() %>%
-            # (`as_tibble` should de-alias the DT and its columns in any edge
-            # cases where they are aliased. We don't say we guarantee this
-            # though.)
             dplyr::select(-"version") %>%
             as_epi_df(
               geo_type = self$geo_type,