Presentations

Tentative schedule as of 2023-12-08 14:12:07.462609.

Background

This page documents how the presentation schedule can be automatically generated from the student survey.

Download data

googledrive::drive_auth(email = "rick.o.gilmore@gmail.com")

if (!dir.exists('csv')) {
  dir.create('csv')
}

csv_fn <- "csv/psych-490-2023-fall-presentations.csv"

googledrive::drive_download(file = 'PSYCH 490.009 Fall 2023 Project Info (Responses)', path = csv_fn, type = 'csv', overwrite = TRUE)

Auto-refreshing stale OAuth token.

File downloaded:

• 'PSYCH 490.009 Fall 2023 Project Info (Responses)'
  <id: 1tgG8etFwMSyGVLeFbQUCChTmVLt0aImZlc9QEAbrXfs>

Saved locally as:

• 'csv/psych-490-2023-fall-presentations.csv'

if (file.exists(csv_fn)) {
  presentations_df <- readr::read_csv(csv_fn, show_col_types = FALSE)
} else {
  message("File not found: ", csv_fn)
  presentations_df <- NULL
}

Clean the data

new_names <-
  c(
    "Timestamp",
    "Authors",
    "Title",
    "Format",
    "Give_talk",
    "Preferred_date"
  )

# Make new data frame with long and short names for reference
presentation_qs <- tibble::tibble(q_long = names(presentations_df), q_short = new_names)

# Swap out old (long) names for new (short) names
names(presentations_df) <- new_names

Select subsets by preferred date

presentations_df <- presentations_df |>
  dplyr::filter(!stringr::str_detect(Authors, "Gilmore"))

fri_df <- presentations_df |>
  dplyr::filter(stringr::str_detect(Preferred_date, "Fri December 1"),
                Give_talk == "Yes")

mon_df <- presentations_df |>
  dplyr::filter(stringr::str_detect(Preferred_date, "Mon"),
                Give_talk == "Yes")

wed_df <- presentations_df |>
  dplyr::filter(stringr::str_detect(Preferred_date, "Wed"),
                Give_talk == "Yes")

fri_8_df <- presentations_df |>
  dplyr::filter(stringr::str_detect(Preferred_date, "Fri December 8"),
                Give_talk == "Yes")

no_pref <- presentations_df |>
  dplyr::filter(stringr::str_detect(Preferred_date, "No preference"),
                Give_talk == "Yes")

times <- c("04:45", "05:00", "05:15")

Day 1: Friday, December 1, 2023

n_fri <- dim(fri_df)[1]
n_no_pref <- dim(no_pref)[1]

n_fri_slots_free <- length(times) - n_fri

new_fri_df <- rbind(fri_df, no_pref[1:n_fri_slots_free,])
new_fri_df$Time <- times

new_fri_df |>
  dplyr::filter(!is.na(Authors)) |>
  dplyr::arrange(Time) |>
  dplyr::select(Time, Authors, Title, Format) |>
  kableExtra::kable(format = 'html') |>
  kableExtra::kable_classic()

Time	Authors	Title	Format
04:45	Joshua Martino	The Purpose and Effectiveness of The Office of Research Integrity	In-class talk
05:00	Yinghe Liu	Practice on reproducing Electrodermal Activity	Research project (& write-up)

Day 2: Monday, December 4, 2023

mon_df$Time <- times[1:dim(mon_df)[1]]

mon_df |>
  dplyr::filter(!is.na(Authors)) |>
  dplyr::arrange(Time) |>
  dplyr::select(Time, Authors, Title, Format) |>
  kableExtra::kable(format = 'html') |>
  kableExtra::kable_classic()

Time	Authors	Title	Format

Day 3: Wednesday, December 6, 2023

wed_df$Time <- times[1:dim(wed_df)[1]]

wed_df |>
  dplyr::filter(!is.na(Authors)) |>
  dplyr::arrange(Time) |>
  dplyr::select(Time, Authors, Title, Format) |>
  kableExtra::kable(format = 'html') |>
  kableExtra::kable_classic()

Time	Authors	Title	Format
04:45	Felipe Senna	Sleep Quality as Quantitative Data in Modern Society	In-class talk

Day 4: Friday, December 8, 2023

fri_8_df$Time <- times[1:dim(fri_8_df)[1]]

fri_8_df |>
  dplyr::filter(!is.na(Authors)) |>
  dplyr::arrange(Time) |>
  dplyr::select(Time, Authors, Title, Format) |>
  kableExtra::kable(format = 'html') |>
  kableExtra::kable_classic()

Time	Authors	Title	Format
04:45	Alyssa Williamson & Maria Piccolino	Scientific Integrity and Deception	In-class talk