Nothing
ResponseHandler<- function(r){
if (http_error(r)) {
x<- status_code(r)
message(
case_when(
x %% 403 == 0 ~ "Authentication failure",
x %% 500 == 0 ~ "Unsuccessful execution",
TRUE ~ sprintf("LendingClub API request failed")))
}
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.