wip+doc: add S3 implementation of epi_archive

* remove comment #417
* bump version to 0.7.6 and add NEWS line

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)

NEWS.md

@@ -32,6 +32,7 @@ Pre-1.0.0 numbering scheme: 0.x will indicate releases, while 0.x.y will indicat
 ## Breaking changes
 
 - Switched `epi_df`'s `other_keys` default from `NULL` to `character(0)`; PR #390
+- Refactor `epi_archive` to use S3 instead of R6 for its object model. The calls to some functions will change, but the functionality will remain the same. It will also help us maintain the package better in the future. (#340)
 
 # epiprocess 0.7.0
 

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,