Use pins to distribute ga_model objects

[MarkEdmondson1234]

Is your feature request related to a problem? Please describe. Support pins discovery to build up a repo of ga_model objects

Describe the solution you'd like Use https://rstudio.github.io/pins/articles/boards-websites.html infrastructure to define ga_model objects from say the googleAnalyticsR website

Describe alternatives you've considered Could just upload the rds files directly to website

[MarkEdmondson1234]

Start of trying this out: https://github.com/MarkEdmondson1234/ga_model_pins

library(pins)

board_register_github(repo = "MarkEdmondson1234/ga_model_pins", branch = "main")

# repeat for each model to pin
m <- ga_model_example("decomp_ga_advanced.gamr")
pin(m, name = "decomp_ga_advanced", description = m$description, board = "github")

To use:

ga_model(81416156, pin_get("decomp_ga", board = "github"))
ga_model(81416156, pin_get("decomp_ga_advanced", board = "github"), frequency = 7)