Skip to contents

Runs sweepstack() over the full available set of shows/songs and rebuilds gid_initial_gid_sound_quality, the dataset behind the Shiny app's "stock" pages (see inst/shiny/Fugazetteer/app.R).

Usage

Repeatr_6(
  myduration_data_da = NULL,
  mysummary = NULL,
  myothervariables = NULL,
  mygidsoundquality = NULL,
  number_stacks = NULL,
  exclude_poor_sound_quality = FALSE,
  output_dir = NULL
)

Arguments

myduration_data_da

optional duration_data_da dataframe (as produced by Repeatr_1()), passed through to sweepstack(). If omitted the currently lazy-loaded default will be used - pass this explicitly when calling Repeatr_6() right after a fresh Repeatr_1() in the same session.

mysummary

optional summary dataframe (as produced by Repeatr_5()), passed through to sweepstack()/stacks(). If omitted the currently lazy-loaded default will be used.

myothervariables

optional othervariables dataframe (the clean, pre-join copy as saved by Repeatr_1()), passed through to sweepstack()/stacks(). If omitted the currently lazy-loaded default will be used.

mygidsoundquality

optional gid_sound_quality dataframe (as produced by Repeatr_1()), passed through to sweepstack()/stacks() and used again directly here to attach sound quality to each stacked show. If omitted the currently lazy-loaded default will be used.

number_stacks

passed through to sweepstack() - the number of starting shows to test. If omitted all possible starting shows will be tested.

exclude_poor_sound_quality

passed through to sweepstack()/stacks() - set to TRUE to exclude shows with sound quality rated as 'Poor'.

output_dir

Optional directory to save the rebuilt data/gid_initial_gid_sound_quality.rda into. If omitted, defaults to data/ under the current working directory.

Value

Invisibly, gid_initial_gid_sound_quality (gid_initial, gid, sound_quality, count - one row per unique show/stack/sound-quality combination). As a side effect, also saved into data/gid_initial_gid_sound_quality.rda.

Examples

Repeatr_6(number_stacks = 10, exclude_poor_sound_quality = TRUE, output_dir = tempdir())
#> stack 1
#> stack 2
#> stack 3
#> stack 4
#> stack 5
#> stack 6
#> stack 7
#> stack 8
#> stack 9
#> stack 10
#> 
#> Joining with `by = join_by(gid)`
#> [1] "10 stacks of 10 - 12 shows."