Merging assignment scores into a format your LMS requires

lms-bs.R

library(tidyverse)

lms_export <- tribble(
  ~Name,           ~`Student ID`, ~`HW 01 [Total Pts: 100 Score] |so many more characters`, ~`and many more columns`,
  "Dorianne Grey", 12345,         NA,   NA,
  "Krista Rose",   67890,         NA,   NA
)

hw_scores <- tribble(
  ~student_id, ~score,
  12345,       80,
  67890,       75
)

hw_var_name <- str_subset(names(lms_export), "HW 01")

lms_export %>%
  select(Name:`Student ID`) %>%
  left_join(hw_scores, by = c(`Student ID` = "student_id")) %>%
  rename(!!hw_var_name := score)
#> # A tibble: 2 x 3
#>   Name          `Student ID` `HW 01 [Total Pts: 100 Score] |so many more charac…
#>   <chr>                <dbl>                                               <dbl>
#> 1 Dorianne Grey        12345                                                  80
#> 2 Krista Rose          67890                                                  75