justfile

# These are for admin tasks that really only need to be done once or twice

# Install package dependencies
install-package-dependencies:
  #!/usr/bin/Rscript
  pak::pak(ask = FALSE)

# Install the r3admin as a package
install-package: install-package-dependencies
  #!/usr/bin/Rscript
  devtools::install()

# Run the targets pipeline
run-targets: install-package
  #!/usr/bin/Rscript
  targets::tar_make()

# (INCOMPLETE) Create a draft email to remind participants of precourse tasks
draft-reminder-email: run-targets
  #!/usr/bin/Rscript
  participant_emails <- get_participant_emails()
  r3admin::create_draft_reminder_email()

# Open up the webpage to create a GitHub organization account
create-org-in-gh:
  xdg-open https://github.com/account/organizations/new?plan=free

# Create a GitHub issue for planning the next upcoming course
create-upcoming-planning-issue: install-package
  #!/usr/bin/Rscript
  r3admin::admin_create_planning_issue(
    id = r3admin::get_upcoming_course()
  )

# Create the PDF and HTML files used for putting people into the groups
create-group-names: run-targets
  #!/usr/bin/Rscript
  devtools::load_all()
  precourse <- targets::tar_read(upcoming_precourse_survey)
  number_groups <- ceiling(nrow(precourse) / 4)
  even_number_people <- round(nrow(precourse) + 0.5)
  group_names <- create_group_names(number_groups)
  group_names_to_one_pdf(group_names)
  Sys.sleep(1.5)
  group_names_as_strips_html(group_names, number_participants = even_number_people)