Workbook 3, "QA standard not met detail" has a manual note 2:
2. Over the 3 years presented, there were a total of {x} standard not met scans that did not have any detailed reason recorded: {x} of these were image quality, {x} calliper placement and {x} angle.
This is currently calculated manually, but there are no clear instructions on how to do so.
The following code could be added to the "04_3_kpi_2.R" script to create a table of this information. This then could be saved to the "temp" directory, and then read back in for the "write_excel/02_Write_Excel_3.R" to create the relevant note automatically. This is currently commented out in the script, but is called qa_detail_note2.
The code to be added to the main kpi 2 script is:
<object_name> <- qa_standard |> filter(is.na(audit_fail_1) & is.na(audit_fail_2) & is.na(audit_fail_3) & is.na(audit_fail_4) & is.na(audit_fail_5)) |> count(audit_fail_reason_text) |> adorn_totals(where = "row", name = "total no detail")
Workbook 3, "QA standard not met detail" has a manual note 2:
This is currently calculated manually, but there are no clear instructions on how to do so.
The following code could be added to the "04_3_kpi_2.R" script to create a table of this information. This then could be saved to the "temp" directory, and then read back in for the "write_excel/02_Write_Excel_3.R" to create the relevant note automatically. This is currently commented out in the script, but is called
qa_detail_note2.The code to be added to the main kpi 2 script is:
<object_name> <- qa_standard |> filter(is.na(audit_fail_1) & is.na(audit_fail_2) & is.na(audit_fail_3) & is.na(audit_fail_4) & is.na(audit_fail_5)) |> count(audit_fail_reason_text) |> adorn_totals(where = "row", name = "total no detail")