books api. But I want to get only books written by Stephen Kingcopyright, number of results returned, status of the call, and results which is a dataframe containing the books writen by Stephen KingbooksSubset <- stephenKingBooks$results %>% select(book_title, publication_dt, book_author, byline, summary)
datatable(booksSubset, colnames = c('Title', 'Date Published', 'Author', 'Byline', 'Summary'), class = 'cell-border stripe', options = list(
initComplete = JS(
"function(settings, json) {",
"$(this.api().table().header()).css({'background-color': '#26868d', 'color': '#fff', 'text-align': 'center !important'});",
"$(this.api().table().body()).css({'color': '#000', 'text-align': 'center !important'});",
"}")
))