Browse Source

Edit: quick naming-fix

pull/1/head
janwey 1 year ago
parent
commit
d93974beba
1 changed files with 10 additions and 4 deletions
  1. 10
    4
      collecto.R

+ 10
- 4
collecto.R View File

@@ -202,9 +202,9 @@ mastodon_auth_login <- as.character(mastodon_api_cred$mail)
mastodon_auth_passw <- as.character(mastodon_api_cred$password)

#### Authentification process
mastodon_auth <- mastodon::login(instance = mastodon_insta,
user = mastodon_login,
pass = mastodon_passw)
mastodon_auth <- mastodon::login(instance = mastodon_auth_insta,
user = mastodon_auth_login,
pass = mastodon_auth_passw)

### Get posts from mastodon
mastodon_toot <- mastodon::get_hashtag(token = mastodon_auth,
@@ -323,4 +323,10 @@ mastodon <- within(data = mastodon, expr = {
})
# }}}


### Exporting data {{{ ----
time_of_saving <- sub(x = Sys.time(), pattern = " CET", replace = "")
time_of_saving <- sub(x = time_of_saving, pattern = " ", replace = "_")
time_of_saving <- gsub(x = time_of_saving, pattern = ":", replace = "-")
save_path <- paste0("./ilovefs-data_", time_of_saving, ".RData")
save(list = c("twitter", "mastodon"), file = save_path)
# }}}

Loading…
Cancel
Save