Fix perma_cc bug #24

[greebie]

The main issue was not as I suspected, but it was that the if--else was not being properly satisfied when the "NOT A URL" was being sent to the API.

NOTE: the latest commit may create another error for QDR's account, because the QDR account has multiple root rows as per #25 . If it does create a problem, I think it would be best to fix that issue in this PR too.

[greebie]

Not sure why it failed AppVeyor - something about pdftools not running properly.

[adam3smith]

Sorry this took a while, but this doesn't work for me and it almost looks like you reverted your fix in the second commit above? Output:

r <- archiv(c("https://www.google.com", "NOT a URL", "https://qdr.syr.edu"), method="perma_cc")
[1] "pass"
[1] "pass"
[1] "pass"
Error in names(x) <- value : 
  'names' attribute [6] must be the same length as the vector [5]
In addition: Warning message:
In matrix(unlist(newlst), nrow = length(newlst), byrow = T) :
  data length [14] is not a sub-multiple or multiple of the number of rows [3]

[adam3smith]

Also, as you suspect, get_default_folder() doesn't work. The above is after setting a folder ID. Before doing so I get:

r <- archiv(c("https://www.google.com", "NOT a URL", "https://qdr.syr.edu"), method="perma_cc")
[1] "Setting folder based on api key."
Error in get_default_folder()[1, ] : incorrect number of dimensions

[adam3smith]

@greebie if you do work on this on Monday, could you take another look at this?

[greebie]

Hi Sebastian - I think this is working as it is now. It requires that you use set_folder_id("id of selected folder") to work.

Don't forget to delete my useless links in your account please!