really clean token directory

NEWS.md

@@ -1,6 +1,7 @@
 # AzureAuth 1.3.0.9000
 
 - Allow specifying the location of the token caching directory in the environment variable `R_AZURE_DATA_DIR`.
+- Change `clean_token_directory` to actually clean the directory (delete all files). This is because the main non-token objects found here are AzureRMR and AzureGraph logins, which are orphaned once their backing tokens are deleted.
 
 # AzureAuth 1.3.0
 

R/token.R

@@ -297,10 +297,10 @@ clean_token_directory <- function(confirm=TRUE)
         return(invisible(NULL))
 
     if(confirm && interactive() &&
-       !get_confirmation("Do you really want to delete ALL saved Azure Active Directory tokens?", FALSE))
+       !get_confirmation("Do you really want to remove all files in the AzureR token directory?", FALSE))
             return(invisible(NULL))
 
-    toks <- dir(AzureR_dir(), pattern="^[0-9a-f]{32}$", full.names=TRUE)
+    toks <- dir(AzureR_dir(), full.names=TRUE)
     file.remove(toks)
     invisible(NULL)
 }