Create dataset: apha_cpd_survey

raw_data_url <- paste0(
  "https://www.aphanalysts.org/",
  "document/get/file/CPD-Survey-Results-RAW-Data.xlsx"
)

dl_tmp <- tempfile("apha_raw_data", fileext = ".xlsx")

httr2::request(raw_data_url) |>
  httr2::req_body_form(
    # These three headers are all required; the 4th one above isn't needed
    cmdm_nonce = "c133038289",
    id = "14354",
    shortcodeId = "31fae3b9363d47608d9038cffc3fa471"
  ) |>
  httr2::req_perform() |>
  # The lines below could be omitted and the `path` argument to req_perform()
  # used instead; but the more verbose/explicit method seems clearer.
  httr2::resp_body_raw() |>
  readr::write_file(dl_tmp)


raw_data <- dl_tmp |>
  openxlsx2::read_xlsx(
    start_row = 3,
    col_names = FALSE,
    skip_empty_rows = TRUE,
    skip_empty_cols = TRUE
  ) |>
  tibble::as_tibble() |>
  dplyr::mutate(across("A", as.integer)) |>
  dplyr::select(!"B") # respondent number not necessary

# informed by https://emilyriederer.netlify.app/post/column-name-contracts/
clean_col_names <- c(
  "respondent_id",
  "form_started_dttm",
  "form_ended_dttm",
  "q00a_age_bracket_cat",
  "q01a_gender_cat",
  "q02a_max_education_level_cat",
  "q03a_analyst_years_n",
  "q04a_role_description_cat",
  "q05a_afc_band_cat",
  "q06a_current_org_years_cat",
  "q07a_future_health_work_cat",
  "q08a_apha_aware_ind",
  "q09a_apha_registered_cat",
  "q10a_other_org_member_txt",
  "q11a_nhs_cpd_aware_cat",
  "q12a_cpd_time_at_work_cat",
  "q13a_cpd_outside_work_ind",
  "q13b_cpd_outside_work_days_txt",
  "q14a_mgr_cpd_supportive_cat",
  "q15a_mgr_cpd_more_support_ind",
  "q16a_org_cpd_supportive_cat",
  "q17a_org_cpd_budget_cat",
  "q17b_org_cpd_budget_txt",
  "q18a_org_study_leave_ind",
  "q18b_org_study_leave_days_txt",
  "q19a_mgr_cpd_discuss_freq_cat",
  "q20a_cpd_opps_nhs_intranet_ind",
  "q20b_cpd_opps_org_website_ind",
  "q20c_cpd_opps_blogs_ind",
  "q20d_cpd_opps_twitter_ind",
  "q20e_cpd_opps_linkedin_ind",
  "q20f_cpd_opps_word_of_mouth_ind",
  "q20g_cpd_opps_apha_website_ind",
  "q20h_cpd_opps_other_txt",
  "q21a_cpd_opps_sources_txt",
  "q22a_org_nhs_type_cat",
  "q23a_org_analyst_team_size_cat",
  "q24a_org_analytics_influence_cat"
)

# Provide explanatory labels for columns; use original name/question as default
var_labels <- c(
  "UserID",
  "Started",
  "Ended",
  "What's your age?",
  "What's your gender?",
  "What's your highest level of education?",
  "How long have you been a healthcare analyst? (years)",
  "Which of the following best describes your current role?",
  "Which of the following Agenda for Change bands best describe your role?",
  "How many years have you been working in the NHS/your organisation?",
  "What is the likelihood you’ll be working in the NHS/your organisation in 3 years time?",
  "Have you heard of the Association of Professional Healthcare Analysts (AphA)?",
  "Are you professionally registered with the AphA? If so, at what level?",
  "Are you a member of an alternative association?",
  "As an analyst, are you aware of professional development opportunities in the NHS?",
  "As an analyst, are you provided with opportunities/time to upskill during work hours, that is you have time to do this at work?",
  "Do you undertake CPD out of work hours?",
  "If yes, on how many days per year?",
  "Do you feel your manager is supportive of your professional development?",
  "Would you like more support on CPD from your line manager?",
  "Do you feel your organisation is supportive of your professional development?",
  "Does your organisation have a budget for CPD?",
  "Please state budget per year:",
  "Does your organisation offer study leave?",
  "Please state number of days study leave allowed per year",
  "How often do you discuss your professional development plan, career progression or potential training with your line manager(s)?",
  "Where do you learn from professional development opportunities? - NHS intranet",
  "Where do you learn from professional development opportunities? - Organisation websites",
  "Where do you learn from professional development opportunities? - Blogs",
  "Where do you learn from professional development opportunities? - Twitter",
  "Where do you learn from professional development opportunities? - LinkedIn",
  "Where do you learn from professional development opportunities? - Word of mouth recommendations",
  "Where do you learn from professional development opportunities? - AphA website",
  "Where do you learn from professional development opportunities? - Other (please specify):",
  "Are there any professional development opportunities (for example AphA website, websites, blogs, or twitter accounts you follow) that you would recommend to your fellow colleagues? Please specify:",
  "What sort of NHS organisation do you work for?",
  "What’s the size of your analytics team (including both full-time and part-time staff)?",
  "Do you feel that analytics influences important decisions in your organisation?"
) |>
  rlang::set_names(clean_col_names)

apha_cpd_survey <- raw_data |>
  dplyr::rename_with(\(x) clean_col_names) |>
  labelled::set_variable_labels(.labels = var_labels)

usethis::use_data(apha_cpd_survey, overwrite = TRUE)