add input write_grades_into_feedback, ref #23

Author: federicazoe

R/assign_grade_write_feedback.R

@@ -18,7 +18,8 @@
 assign_grade_write_feedback <- function(
     grading_progress_log_row,
     rubric_list,
-    rubric_prompts
+    rubric_prompts,
+    write_grades_into_feedback = FALSE
   ) {
 
   # Get feedback and grade corresponding to entered code

R/assist_grading-wrappers.R

@@ -48,7 +48,8 @@ assist_grading <- function(
     example_assignment_path,
     example_feedback_path,
     example_student_identifier,
-    missing_assignment_grade = NA
+    missing_assignment_grade = NA,
+    write_grades_into_feedback = FALSE
 ) {
 
   core_assist_grading(
@@ -63,7 +64,8 @@ assist_grading <- function(
     questions_to_grade = "all",
     students_to_grade = "all",
     team_grading = FALSE,
-    github_issues = FALSE
+    github_issues = FALSE,
+    write_grades_into_feedback = write_grades_into_feedback
   )
 
 }
@@ -83,7 +85,8 @@ assist_team_grading <- function(
   missing_assignment_grade = NA,
   questions_to_grade = "all",
   teams_to_grade = "all",
-  github_issues = FALSE
+  github_issues = FALSE,
+  write_grades_into_feedback = FALSE
 ) {
 
   core_assist_grading(
@@ -98,7 +101,8 @@ assist_team_grading <- function(
     questions_to_grade = questions_to_grade,
     students_to_grade = teams_to_grade,
     team_grading = TRUE,
-    github_issues = github_issues
+    github_issues = github_issues,
+    write_grades_into_feedback = write_grades_into_feedback
   )
 }
 
@@ -117,7 +121,8 @@ assist_advanced_grading <- function(
   missing_assignment_grade = NA,
   questions_to_grade = "all",
   students_to_grade = "all",
-  github_issues = FALSE
+  github_issues = FALSE,
+  write_grades_into_feedback = FALSE
 ) {
 
   core_assist_grading(
@@ -132,7 +137,8 @@ assist_advanced_grading <- function(
     questions_to_grade = questions_to_grade,
     students_to_grade = students_to_grade,
     team_grading = FALSE,
-    github_issues = github_issues
+    github_issues = github_issues,
+    write_grades_into_feedback = write_grades_into_feedback    
   )
 
 }

R/assist_regrading.R

@@ -21,7 +21,8 @@ assist_regrading <- function(
     students_to_regrade,
     teams_to_regrade = NULL,
     missing_assignment_grade = NA,
-    github_issues = FALSE
+    github_issues = FALSE,
+    write_grades_into_feedback = FALSE
   ) {
 
   if (is.null(students_to_regrade) && is.null(teams_to_regrade)) {
@@ -217,7 +218,8 @@ assist_regrading <- function(
               rubric_list = rubric_list,
               rubric_path = rubric_path,
               questions_to_grade = q,
-              github_issues = github_issues
+              github_issues = github_issues,
+              write_grades_into_feedback = write_grades_into_feedback
             )
 
             # Recreate rubric list and prompts, in case they have been modified

R/core_assist_grading.R

@@ -24,7 +24,8 @@ core_assist_grading <- function(
     questions_to_grade = "all",
     students_to_grade = "all",
     team_grading = FALSE,
-    github_issues = FALSE
+    github_issues = FALSE,
+    write_grades_into_feedback = FALSE
   ) {
 
   # Check example_assignment_path is valid input
@@ -208,7 +209,8 @@ core_assist_grading <- function(
             rubric_list = rubric_list,
             rubric_path = rubric_path,
             github_issues = github_issues,
-            questions_to_grade = questions_to_grade
+            questions_to_grade = questions_to_grade,
+            write_grades_into_feedback = write_grades_into_feedback
           )
 
           if (example_assignment_path[1] != "no_submissions") {

R/delete_student_grading_progress.R

@@ -17,7 +17,8 @@ delete_student_grading_progress <- function(
     rubric_path,
     identifier,
     questions_to_delete,
-    github_issues
+    github_issues,
+    write_grades_into_feedback
   ) {
 
   grading_progress_log <- readr::read_csv(
@@ -82,7 +83,8 @@ delete_student_grading_progress <- function(
   grade_info <- assign_grade_write_feedback(
     grading_progress_log_row = curr_row, 
     rubric_list = rubric_list,
-    rubric_prompts = rubric_prompts
+    rubric_prompts = rubric_prompts,
+    write_grades_into_feedback = write_grades_into_feedback
   )
 
   curr_row$grading_status <- grade_info$grading_status

R/grade_student.R

@@ -27,7 +27,8 @@ grade_student <- function(
   rubric_list,
   rubric_path,
   github_issues,
-  questions_to_grade
+  questions_to_grade,
+  write_grades_into_feedback
 ){
 
   curr_row <- grading_progress_log[row, ]
@@ -165,7 +166,8 @@ grade_student <- function(
       grade_info <- assign_grade_write_feedback(
         grading_progress_log_row = curr_row, 
         rubric_list = rubric_list,
-        rubric_prompts = rubric_prompts
+        rubric_prompts = rubric_prompts,
+        write_grades_into_feedback = write_grades_into_feedback    
       )
 
       # Update feedback_pushed, if it exists