Search parameter - author
The author of the best seller.
When searching the author field, you can specify any combination of first,
middle and last names.
When sort-by is set to author, the results will be sorted by author's first name.
best_seller_author_search <- function(author) {
url = paste(
"https://api.nytimes.com/svc/books/v3/lists/best-sellers/history.json?api-key=ca3dd8e9d2304f22aa90401d20180bd1&author=",
paste(unlist(str_split(author, "\\s")) , collapse = "+"),
sep = "")
myOpts <- curlOptions(connecttimeout = 200)
jsonFromUrl <- getURL(url, .opts = myOpts)
tmp <- tempfile()
file_conn <- file(tmp)
writeLines(jsonFromUrl, file_conn)
on.exit(close(file_conn))
books <- read_json(tmp)
options(stringsAsFactors=FALSE)
df <- data.frame(title <- as.character(),
description <- as.character(),
contributor <- as.character(),
author <- as.character(),
contributor_note <- as.character(),
price <- as.numeric(),
age_group <- as.character(),
publisher <- as.character(),
isbn10 <- as.character(),
isbn13 <- as.character(),
rank <- as.character(),
list_name <- as.character(),
display_name <- as.character(),
published_date <- as.character(),
bestsellers_date <- as.character(),
weeks_on_list <- as.integer(),
asterisk <- as.integer(),
dagger <- as.integer()
)
for(i in 0:(length(books[[4]]) - 1)) {
tryCatch({
title <- json_path(books, paste("$.results[",i,"].title", sep = ""))
description <- json_path(books, paste("$.results[",i,"].description", sep = ""))
contributor <- json_path(books, paste("$.results[",i,"].contributor", sep = ""))
author <- json_path(books, paste("$.results[",i,"].author", sep = ""))
contributor_note <- json_path(books, paste("$.results[",i,"].contributor_note", sep = ""))
price <- json_path(books, paste("$.results[",i,"].price", sep = ""))
age_group <- json_path(books, paste("$.results[",i,"].age_group", sep = ""))
publisher <- json_path(books, paste("$.results[",i,"].publisher", sep = ""))
book_ranking_history <- books[[4]][[i+1]]$ranks_history
if (length(book_ranking_history) != 0) {
for (j in 1:(length(book_ranking_history))) {
primary_isbn10 <- book_ranking_history[[j]]$primary_isbn10
primary_isbn13 <- book_ranking_history[[j]]$primary_isbn13
rank <- book_ranking_history[[j]]$rank
list_name <- book_ranking_history[[j]]$list_name
display_name <- book_ranking_history[[j]]$display_name
published_date <-book_ranking_history[[j]]$published_date
bestsellers_date <- book_ranking_history[[j]]$bestsellers_date
weeks_on_list <- book_ranking_history[[j]]$weeks_on_list
asterisk <- book_ranking_history[[j]]$asterisk
dagger <- book_ranking_history[[j]]$dagger
df <- rbind(df, data.frame(title=title,
description=description,
contributor=contributor,
author=author,
contributor_note=contributor_note,
price=price,
age_group=age_group,
publisher=publisher,
isbn10=primary_isbn10,
isbn13=primary_isbn13,
rank=rank,
list_name=list_name,
display_name=display_name,
published_date=published_date,
bestsellers_date=bestsellers_date,
weeks_on_list=weeks_on_list,
#ranks_last_week=ranks_last_week
asterisk=asterisk,
dagger=dagger
))
}
}
},
error = function(e) print("data not found")
)
}
df
}
best_seller_author_search("Vaynerchuk")
## title
## 1 #ASKGARYVEE
## 2 #ASKGARYVEE
## 3 CRUSH IT!
## 4 CRUSH IT!
## 5 CRUSH IT!
## 6 CRUSH IT!
## 7 CRUSH IT!
## 8 CRUSHING IT!
## 9 CRUSHING IT!
## 10 CRUSHING IT!
## 11 CRUSHING IT!
## 12 CRUSHING IT!
## 13 CRUSHING IT!
## 14 JAB, JAB, JAB, RIGHT HOOK
## 15 JAB, JAB, JAB, RIGHT HOOK
## 16 THANK YOU ECONOMY
## 17 THANK YOU ECONOMY
## 18 THANK YOU ECONOMY
## 19 THANK YOU ECONOMY
## 20 THANK YOU ECONOMY
## description
## 1 The entrepreneur expands on subjects addressed on his Internet show, like marketing, management and social media.
## 2 The entrepreneur expands on subjects addressed on his Internet show, like marketing, management and social media.
## 3 How the Web can help turn your passion into a business.
## 4 How the Web can help turn your passion into a business.
## 5 How the Web can help turn your passion into a business.
## 6 How the Web can help turn your passion into a business.
## 7 How the Web can help turn your passion into a business.
## 8
## 9
## 10
## 11
## 12
## 13
## 14 Business tips on optimizing social media strategies.
## 15 Business tips on optimizing social media strategies.
## 16 Tips on using social media tools to connect to customers.
## 17 Tips on using social media tools to connect to customers.
## 18 Tips on using social media tools to connect to customers.
## 19 Tips on using social media tools to connect to customers.
## 20 Tips on using social media tools to connect to customers.
## contributor author contributor_note price age_group
## 1 by Gary Vaynerchuk Gary Vaynerchuk 0.00
## 2 by Gary Vaynerchuk Gary Vaynerchuk 0.00
## 3 by Gary Vaynerchuk Gary Vaynerchuk 19.99
## 4 by Gary Vaynerchuk Gary Vaynerchuk 19.99
## 5 by Gary Vaynerchuk Gary Vaynerchuk 19.99
## 6 by Gary Vaynerchuk Gary Vaynerchuk 19.99
## 7 by Gary Vaynerchuk Gary Vaynerchuk 19.99
## 8 by Gary Vaynerchuk Gary Vaynerchuk 0.00
## 9 by Gary Vaynerchuk Gary Vaynerchuk 0.00
## 10 by Gary Vaynerchuk Gary Vaynerchuk 0.00
## 11 by Gary Vaynerchuk Gary Vaynerchuk 0.00
## 12 by Gary Vaynerchuk Gary Vaynerchuk 0.00
## 13 by Gary Vaynerchuk Gary Vaynerchuk 0.00
## 14 by Gary Vaynerchuk Gary Vaynerchuk 0.00
## 15 by Gary Vaynerchuk Gary Vaynerchuk 0.00
## 16 by Gary Vaynerchuk Gary Vaynerchuk 24.99
## 17 by Gary Vaynerchuk Gary Vaynerchuk 24.99
## 18 by Gary Vaynerchuk Gary Vaynerchuk 24.99
## 19 by Gary Vaynerchuk Gary Vaynerchuk 24.99
## 20 by Gary Vaynerchuk Gary Vaynerchuk 24.99
## publisher isbn10 isbn13 rank
## 1 HarperCollins 0062273124 9780062273123 5
## 2 HarperCollins 0062273124 9780062273123 6
## 3 HarperStudio/HarperCollins 0061914177 9780061914171 15
## 4 HarperStudio/HarperCollins 0061914177 9780061914171 13
## 5 HarperStudio/HarperCollins 0061914177 9780061914171 8
## 6 HarperStudio/HarperCollins 0061914177 9780061914171 7
## 7 HarperStudio/HarperCollins 0061914177 9780061914171 2
## 8 HarperBusiness 0062674676 9780062674678 9
## 9 HarperBusiness 0062674676 9780062674678 1
## 10 HarperBusiness 0062674676 9780062674678 6
## 11 HarperBusiness 0062674676 9780062674678 4
## 12 HarperBusiness 0062674676 9780062674678 4
## 13 HarperBusiness 0062674676 9780062674678 1
## 14 Harper Business 006227306X 9780062273062 5
## 15 Harper Business 006227306X 9780062273062 4
## 16 Harper Business/HarperCollins 0061914185 9780061914188 15
## 17 Harper Business/HarperCollins 0061914185 9780061914188 14
## 18 Harper Business/HarperCollins 0061914185 9780061914188 15
## 19 Harper Business/HarperCollins 0061914185 9780061914188 13
## 20 Harper Business/HarperCollins 0061914185 9780061914188 2
## list_name display_name
## 1 Business Books Business
## 2 Advice How-To and Miscellaneous Advice, How-To & Miscellaneous
## 3 Hardcover Advice Hardcover Advice & Misc.
## 4 Hardcover Advice Hardcover Advice & Misc.
## 5 Hardcover Advice Hardcover Advice & Misc.
## 6 Hardcover Advice Hardcover Advice & Misc.
## 7 Hardcover Advice Hardcover Advice & Misc.
## 8 Advice How-To and Miscellaneous Advice, How-To & Miscellaneous
## 9 Business Books Business
## 10 Advice How-To and Miscellaneous Advice, How-To & Miscellaneous
## 11 Advice How-To and Miscellaneous Advice, How-To & Miscellaneous
## 12 Advice How-To and Miscellaneous Advice, How-To & Miscellaneous
## 13 Advice How-To and Miscellaneous Advice, How-To & Miscellaneous
## 14 Business Books Business
## 15 Advice How-To and Miscellaneous Advice, How-To & Miscellaneous
## 16 Hardcover Business Books Hardcover Business Books
## 17 Hardcover Advice Hardcover Advice & Misc.
## 18 Hardcover Advice Hardcover Advice & Misc.
## 19 Hardcover Advice Hardcover Advice & Misc.
## 20 Hardcover Advice Hardcover Advice & Misc.
## published_date bestsellers_date weeks_on_list asterisk dagger
## 1 2016-04-10 2016-03-26 0 0 1
## 2 2016-03-27 2016-03-12 1 0 1
## 3 2009-12-06 2009-11-21 0 0 0
## 4 2009-11-22 2009-11-07 0 0 0
## 5 2009-11-15 2009-10-31 3 0 1
## 6 2009-11-08 2009-10-24 2 0 1
## 7 2009-11-01 2009-10-17 1 0 1
## 8 2018-03-18 2018-03-03 5 0 1
## 9 2018-03-11 2018-02-24 0 0 1
## 10 2018-03-11 2018-02-24 4 0 1
## 11 2018-03-04 2018-02-17 3 0 1
## 12 2018-02-25 2018-02-10 2 0 1
## 13 2018-02-18 2018-02-03 1 0 1
## 14 2014-01-12 2013-12-28 0 0 1
## 15 2013-12-15 2013-11-30 1 0 1
## 16 2011-08-14 2011-07-30 0 0 1
## 17 2011-05-29 2011-05-14 0 0 0
## 18 2011-05-15 2011-04-30 0 0 0
## 19 2011-04-03 2011-03-19 0 0 0
## 20 2011-03-27 2011-03-12 1 0 1
best_seller_author_search("Diana Gabaldon")
## title
## 1 "I GIVE YOU MY BODY ..."
## 2 OUTLANDER
## 3 OUTLANDER
## 4 OUTLANDER
## 5 OUTLANDER
## 6 OUTLANDER
## 7 OUTLANDER
## 8 OUTLANDER
## 9 OUTLANDER
## 10 OUTLANDER
## 11 OUTLANDER
## 12 OUTLANDER
## 13 OUTLANDER
## 14 SEVEN STONES TO STAND OR FALL
## 15 SEVEN STONES TO STAND OR FALL
## 16 SEVEN STONES TO STAND OR FALL
## 17 SEVEN STONES TO STAND OR FALL
## 18 THE OUTLANDISH COMPANION VOLUME TWO
## 19 VIRGINS
## 20 VIRGINS
## description
## 1 The author of the Outlander novels gives tips on writing sex scenes, drawing on examples from the books.
## 2 An English nurse is transported back to 1743 during a second honeymoon in the Scottish Highlands.
## 3 An English nurse is transported back to 1743 during a second honeymoon in the Scottish Highlands.
## 4 An English nurse is transported back to 1743 during a second honeymoon in the Scottish Highlands.
## 5 An English nurse is transported back to 1743 during a second honeymoon in the Scottish Highlands.
## 6 An English nurse is transported back to 1743 during a second honeymoon in the Scottish Highlands.
## 7 An English nurse is transported back to 1743 during a second honeymoon in the Scottish Highlands.
## 8 An English nurse is transported back to 1743 during a second honeymoon in the Scottish Highlands.
## 9 An English nurse is transported back to 1743 during a second honeymoon in the Scottish Highlands.
## 10 An English nurse is transported back to 1743 during a second honeymoon in the Scottish Highlands.
## 11 An English nurse is transported back to 1743 during a second honeymoon in the Scottish Highlands.
## 12 An English nurse is transported back to 1743 during a second honeymoon in the Scottish Highlands.
## 13 An English nurse is transported back to 1743 during a second honeymoon in the Scottish Highlands.
## 14 A collection of Outlander short fiction.
## 15 A collection of Outlander short fiction.
## 16 A collection of Outlander short fiction.
## 17 A collection of Outlander short fiction.
## 18
## 19 A mercenary escorts a doctor's daughter to Paris.
## 20 A mercenary escorts a doctor's daughter to Paris.
## contributor author contributor_note price age_group
## 1 by Diana Gabaldon Diana Gabaldon 0
## 2 by Diana Gabaldon Diana Gabaldon 0
## 3 by Diana Gabaldon Diana Gabaldon 0
## 4 by Diana Gabaldon Diana Gabaldon 0
## 5 by Diana Gabaldon Diana Gabaldon 0
## 6 by Diana Gabaldon Diana Gabaldon 0
## 7 by Diana Gabaldon Diana Gabaldon 0
## 8 by Diana Gabaldon Diana Gabaldon 0
## 9 by Diana Gabaldon Diana Gabaldon 0
## 10 by Diana Gabaldon Diana Gabaldon 0
## 11 by Diana Gabaldon Diana Gabaldon 0
## 12 by Diana Gabaldon Diana Gabaldon 0
## 13 by Diana Gabaldon Diana Gabaldon 0
## 14 by Diana Gabaldon Diana Gabaldon 0
## 15 by Diana Gabaldon Diana Gabaldon 0
## 16 by Diana Gabaldon Diana Gabaldon 0
## 17 by Diana Gabaldon Diana Gabaldon 0
## 18 by Diana Gabaldon Diana Gabaldon 0
## 19 by Diana Gabaldon Diana Gabaldon 0
## 20 by Diana Gabaldon Diana Gabaldon 0
## publisher isbn10 isbn13 rank
## 1 Dell 0399178570 9780399178573 8
## 2 Dell 0440335167 9780440335160 14
## 3 Dell 0440335167 9780440335160 2
## 4 Dell 0440335167 9780440335160 7
## 5 Dell 0440212561 9780440212560 14
## 6 Dell 0440212561 9780440212560 15
## 7 Dell 0440212561 9780440212560 12
## 8 Dell 0440212561 9780440212560 10
## 9 Dell 0440212561 9780440212560 15
## 10 Dell 0440212561 9780440212560 19
## 11 Dell 0440212561 9780440212560 20
## 12 Dell 0440212561 9780440212560 14
## 13 Dell 0440212561 9780440212560 15
## 14 Delacorte 039959342X 9780399593420 9
## 15 Delacorte 039959342X 9780399593420 13
## 16 Delacorte 039959342X 9780399593420 5
## 17 Delacorte 039959342X 9780399593420 5
## 18 Delacorte 0385344449 9780385344449 11
## 19 Dell 1101882522 9781101882528 9
## 20 Dell 1101882522 9781101882528 7
## list_name display_name
## 1 Advice How-To and Miscellaneous Advice, How-To & Miscellaneous
## 2 Combined Print and E-Book Fiction Combined Print & E-Book Fiction
## 3 E-Book Fiction E-Book Fiction
## 4 Combined Print and E-Book Fiction Combined Print & E-Book Fiction
## 5 Mass Market Paperback Paperback Mass-Market Fiction
## 6 Mass Market Paperback Paperback Mass-Market Fiction
## 7 Mass Market Paperback Paperback Mass-Market Fiction
## 8 Mass Market Paperback Paperback Mass-Market Fiction
## 9 Mass Market Paperback Paperback Mass-Market Fiction
## 10 Mass Market Paperback Paperback Mass-Market Fiction
## 11 Mass Market Paperback Paperback Mass-Market Fiction
## 12 Mass Market Paperback Paperback Mass-Market Fiction
## 13 Mass Market Paperback Paperback Mass-Market Fiction
## 14 Hardcover Fiction Hardcover Fiction
## 15 Hardcover Fiction Hardcover Fiction
## 16 Combined Print and E-Book Fiction Combined Print & E-Book Fiction
## 17 Hardcover Fiction Hardcover Fiction
## 18 Advice How-To and Miscellaneous Advice, How-To & Miscellaneous
## 19 Combined Print and E-Book Fiction Combined Print & E-Book Fiction
## 20 E-Book Fiction E-Book Fiction
## published_date bestsellers_date weeks_on_list asterisk dagger
## 1 2016-09-04 2016-08-20 1 0 0
## 2 2017-09-24 2017-09-09 21 0 0
## 3 2016-08-28 2016-08-13 13 0 0
## 4 2016-08-28 2016-08-13 20 0 0
## 5 2016-08-07 2016-07-23 0 0 0
## 6 2016-07-31 2016-07-16 0 0 0
## 7 2016-05-08 2016-04-23 0 0 0
## 8 2016-05-01 2016-04-16 48 0 0
## 9 2016-01-10 2015-12-26 0 0 0
## 10 2015-08-23 2015-08-08 0 0 0
## 11 2015-08-16 2015-08-01 0 0 0
## 12 2015-08-09 2015-07-25 0 0 0
## 13 2015-08-02 2015-07-18 0 0 0
## 14 2017-07-30 2017-07-15 3 0 0
## 15 2017-07-23 2017-07-08 2 0 0
## 16 2017-07-16 2017-07-01 1 0 0
## 17 2017-07-16 2017-07-01 1 0 0
## 18 2015-11-15 2015-10-31 0 0 0
## 19 2016-04-24 2016-04-09 1 0 0
## 20 2016-04-24 2016-04-09 1 0 0