Thanks @Matthias It works well, the way I want.
write_xlsx(list(constraint = result),"hfc_outputs.xlsx")