Add a new row to a dataframe by clicking on a datatable row and actionbutton

Question

I have the shiny app and the dataframes below.

attribute_name<-c("Jack","Bob","Jack","Bob")
category_id<-c(7,7,7