Browse Source

Cleanup README

master
Lukas Burk 1 year ago
parent
commit
c50b8d62b3
Signed by: lukas GPG Key ID: 044E8B20BB186F81
2 changed files with 85 additions and 56 deletions
  1. +9
    -3
      README.Rmd
  2. +76
    -53
      README.md

+ 9
- 3
README.Rmd View File

@@ -53,7 +53,10 @@ You can either search for "Ocarina of Time", or supply `'oot'`, the game's abbre
```{r}
games <- get_games(name = "Ocarina of Time")

kable(games)
games %>%
select(id, name_international, name_abbr) %>%
head() %>%
kable()
```

Turns out `j1l9qz1g` is the id we're looking for.
@@ -64,7 +67,8 @@ Turns out `j1l9qz1g` is the id we're looking for.
categories <- get_categories(id = "j1l9qz1g")

categories %>%
select(-rules) %>%
select(id, name, type) %>%
head() %>%
kable()
```

@@ -76,6 +80,8 @@ Now we can fetch the runs. By default, 100 runs are returned, ordered by submit

```{r}
runs <- get_runs(game = "j1l9qz1g", category = "q255jw2o")

glimpse(runs)
```

And now we can basically re-create the leaderboard, but including obsoleted runs:
@@ -86,7 +92,7 @@ library(hms)
runs %>%
arrange(time_primary) %>%
head(20) %>%
select(submitted, time_primary, player_url) %>%
select(submitted, time_primary, player_name) %>%
mutate(time_primary = hms(seconds = time_primary)) %>%
kable()
```


+ 76
- 53
README.md View File

@@ -44,18 +44,20 @@ game’s abbreviation on speedrun.com.
``` r
games <- get_games(name = "Ocarina of Time")

kable(games)
games %>%
select(id, name_international, name_abbr) %>%
head() %>%
kable()
```

| id | name\_international | name\_twitch | name\_abbr | weblink | released | released\_year | romhack | created |
| :------- | :------------------------------------------------ | :-------------------------------------------------- | :--------- | :----------------------------------- | :--------- | -------------: | :------ | :------------------ |
| j1l9qz1g | The Legend of Zelda: Ocarina of Time | The Legend of Zelda: Ocarina of Time | oot | <https://www.speedrun.com/oot> | 1998-11-21 | 1998 | FALSE | 2015-02-17 01:43:13 |
| kdkjex1m | The Legend of Zelda: Ocarina of Time Master Quest | The Legend of Zelda: Ocarina of Time / Master Quest | ootmq | <https://www.speedrun.com/ootmq> | 2002-01-01 | 2002 | FALSE | 2015-02-21 21:46:55 |
| 268vqkdp | The Legend of Zelda: Ocarina of Time 3D | The Legend of Zelda: Ocarina of Time 3D | oot3d | <https://www.speedrun.com/oot3d> | 2011-06-16 | 2011 | FALSE | 2015-09-10 00:33:00 |
| nd2qgrd0 | Roblox Ocarina Of Time | ROBLOX | root | <https://www.speedrun.com/root> | 2008-10-24 | 2008 | TRUE | 2016-11-14 04:37:16 |
| 76rkv4d8 | Ocarina of Time Category Extensions | The Legend of Zelda: Ocarina of Time | ootextras | <https://www.speedrun.com/ootextras> | 1998-11-21 | 1998 | TRUE | 2017-01-22 17:56:13 |
| m1zromd0 | Ocarina of Time Beta Quest | Ocarina of Time Beta Quest | ootbq | <https://www.speedrun.com/ootbq> | 2015-11-13 | 2015 | TRUE | 2017-07-24 03:24:09 |
| v1pol9m6 | SM64: Ocarina of Time | SM64: Ocarina of Time | sm64oot | <https://www.speedrun.com/sm64oot> | 2018-03-26 | 2018 | FALSE | 2018-03-29 16:04:03 |
| id | name\_international | name\_abbr |
| :------- | :------------------------------------------------ | :--------- |
| j1l9qz1g | The Legend of Zelda: Ocarina of Time | oot |
| kdkjex1m | The Legend of Zelda: Ocarina of Time Master Quest | ootmq |
| 268vqkdp | The Legend of Zelda: Ocarina of Time 3D | oot3d |
| nd2qgrd0 | Roblox Ocarina Of Time | root |
| 76rkv4d8 | Ocarina of Time Category Extensions | ootextras |
| m1zromd0 | Ocarina of Time Beta Quest | ootbq |

Turns out `j1l9qz1g` is the id we’re looking for.

@@ -65,24 +67,19 @@ Turns out `j1l9qz1g` is the id we’re looking for.
categories <- get_categories(id = "j1l9qz1g")

categories %>%
select(-rules) %>%
select(id, name, type) %>%
head() %>%
kable()
```

| id | name | link | type | miscellaneous |
| :------- | :------------ | :------------------------------------------- | :-------- | :------------ |
| q255jw2o | 100% | <https://www.speedrun.com/oot#100> | per-game | FALSE |
| 824qn3k5 | 100% | <https://www.speedrun.com/oot> | per-level | FALSE |
| zdnoz72q | All Dungeons | <https://www.speedrun.com/oot#All_Dungeons> | per-game | FALSE |
| z275w5k0 | Any% | <https://www.speedrun.com/oot#Any> | per-game | FALSE |
| 02qe4z2y | Any% | <https://www.speedrun.com/oot> | per-level | FALSE |
| 9kvr802g | Ganonless | <https://www.speedrun.com/oot#Ganonless> | per-game | TRUE |
| zd35jnkn | Glitchless | <https://www.speedrun.com/oot#Glitchless> | per-game | FALSE |
| ndxlw1dq | Glitchless | <https://www.speedrun.com/oot> | per-level | FALSE |
| jdrwr0k6 | MST | <https://www.speedrun.com/oot#MST> | per-game | FALSE |
| 9d85yqdn | No IM/WW | <https://www.speedrun.com/oot#No_IMWW> | per-game | FALSE |
| xd1wj828 | No Wrong Warp | <https://www.speedrun.com/oot#No_Wrong_Warp> | per-game | TRUE |
| rklm8qdn | Restricted | <https://www.speedrun.com/oot> | per-level | TRUE |
| id | name | type |
| :------- | :----------- | :-------- |
| q255jw2o | 100% | per-game |
| 824qn3k5 | 100% | per-level |
| zdnoz72q | All Dungeons | per-game |
| z275w5k0 | Any% | per-game |
| 02qe4z2y | Any% | per-level |
| 9kvr802g | Ganonless | per-game |

So apparently we’re looking for `q255jw2o`, the full-game 100% category.

@@ -95,6 +92,32 @@ sure to get *all* the runs.

``` r
runs <- get_runs(game = "j1l9qz1g", category = "q255jw2o")

glimpse(runs)
#> Observations: 100
#> Variables: 22
#> $ id <chr> "y43vwl3z", "y430d2dz", "yd3orkxz", "mk9rgxxz", …
#> $ weblink <chr> "https://www.speedrun.com/oot/run/y43vwl3z", "ht…
#> $ game <chr> "j1l9qz1g", "j1l9qz1g", "j1l9qz1g", "j1l9qz1g", …
#> $ level <lgl> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, …
#> $ category <chr> "q255jw2o", "q255jw2o", "q255jw2o", "q255jw2o", …
#> $ videos <chr> "https://www.twitch.tv/videos/398083535", "https…
#> $ status <chr> "verified", "verified", "verified", "verified", …
#> $ comment <chr> NA, "didn't expect my second valid run to be a r…
#> $ player_id <chr> "kj9m2d7x", "68wvk24x", "kj9m2d7x", "68wvk24x", …
#> $ player_url <chr> "https://www.speedrun.com/user/Kneeper", "https:…
#> $ player_name <chr> "Kneeper", "gummee", "Kneeper", "gummee", "Angel…
#> $ player_role <chr> "user", "user", "user", "user", "user", "user", …
#> $ player_signup <dttm> 2019-03-07 08:22:06, 2019-03-07 06:43:08, 2019-…
#> $ date <date> 2019-03-19, 2019-03-15, 2019-03-07, 2019-03-07,…
#> $ submitted <dttm> 2019-03-20 03:05:21, 2019-03-16 03:20:52, 2019-…
#> $ time_primary <int> 19937, 18773, 21572, 19416, 16156, 15282, 16304,…
#> $ time_realtime <int> 19937, 18773, 21572, 19416, 16156, 15282, 16304,…
#> $ time_ingame <int> 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, …
#> $ time_hms <time> 05:32:17, 05:12:53, 05:59:32, 05:23:36, 04:29:1…
#> $ system_platform <chr> "nzelreqp", "w89rwelk", "nzelreqp", "w89rwelk", …
#> $ system_emulated <lgl> FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE,…
#> $ system_region <chr> "o316x197", "o316x197", "o316x197", "o316x197", …
```

And now we can basically re-create the leaderboard, but including
@@ -106,33 +129,33 @@ library(hms)
runs %>%
arrange(time_primary) %>%
head(20) %>%
select(submitted, time_primary, player_url) %>%
select(submitted, time_primary, player_name) %>%
mutate(time_primary = hms(seconds = time_primary)) %>%
kable()
```

| submitted | time\_primary | player\_url |
| :------------------ | :------------ | :--------------------------------------------- |
| 2018-11-28 02:03:45 | 03:53:33 | <https://www.speedrun.com/user/zfg> |
| 2018-10-31 01:33:08 | 03:54:52 | <https://www.speedrun.com/user/zfg> |
| 2018-09-23 01:03:54 | 03:56:08 | <https://www.speedrun.com/user/zfg> |
| 2018-08-21 04:27:10 | 03:57:38 | <https://www.speedrun.com/user/zfg> |
| 2018-10-11 04:03:38 | 03:58:28 | <https://www.speedrun.com/user/Marco> |
| 2018-08-02 02:15:56 | 03:58:45 | <https://www.speedrun.com/user/zfg> |
| 2018-09-29 13:12:43 | 03:59:17 | <https://www.speedrun.com/user/Marco> |
| 2018-09-17 12:49:58 | 04:00:47 | <https://www.speedrun.com/user/Marco> |
| 2018-07-28 05:47:32 | 04:01:05 | <https://www.speedrun.com/user/zfg> |
| 2018-09-01 04:40:41 | 04:01:39 | <https://www.speedrun.com/user/Marco> |
| 2018-07-22 03:15:39 | 04:03:24 | <https://www.speedrun.com/user/zfg> |
| 2018-08-04 04:03:15 | 04:03:40 | <https://www.speedrun.com/user/Marco> |
| 2018-09-09 23:02:52 | 04:07:04 | <https://www.speedrun.com/user/MasterMonk1991> |
| 2018-07-25 04:07:52 | 04:07:23 | <https://www.speedrun.com/user/Marco> |
| 2018-08-23 00:22:32 | 04:07:57 | <https://www.speedrun.com/user/Bonooru> |
| 2018-08-18 03:12:47 | 04:09:42 | <https://www.speedrun.com/user/Bonooru> |
| 2018-10-13 20:39:56 | 04:09:43 | <https://www.speedrun.com/user/dannyb21892> |
| 2018-08-24 10:36:10 | 04:09:50 | <https://www.speedrun.com/user/MasterMonk1991> |
| 2018-08-23 14:48:18 | 04:10:14 | <https://www.speedrun.com/user/MasterMonk1991> |
| 2018-07-20 01:17:13 | 04:10:32 | <https://www.speedrun.com/user/Marco> |
| submitted | time\_primary | player\_name |
| :------------------ | :------------ | :------------- |
| 2018-11-28 02:03:45 | 03:53:33 | zfg |
| 2018-10-31 01:33:08 | 03:54:52 | zfg |
| 2018-09-23 01:03:54 | 03:56:08 | zfg |
| 2018-08-21 04:27:10 | 03:57:38 | zfg |
| 2018-10-11 04:03:38 | 03:58:28 | Marco |
| 2018-08-02 02:15:56 | 03:58:45 | zfg |
| 2018-09-29 13:12:43 | 03:59:17 | Marco |
| 2018-09-17 12:49:58 | 04:00:47 | Marco |
| 2018-07-28 05:47:32 | 04:01:05 | zfg |
| 2018-09-01 04:40:41 | 04:01:39 | Marco |
| 2018-07-22 03:15:39 | 04:03:24 | zfg |
| 2018-08-04 04:03:15 | 04:03:40 | Marco |
| 2018-09-09 23:02:52 | 04:07:04 | MasterMonk1991 |
| 2018-07-25 04:07:52 | 04:07:23 | Marco |
| 2018-08-23 00:22:32 | 04:07:57 | Bonooru |
| 2018-08-18 03:12:47 | 04:09:42 | Bonooru |
| 2018-10-13 20:39:56 | 04:09:43 | dannyb21892 |
| 2018-08-24 10:36:10 | 04:09:50 | MasterMonk1991 |
| 2018-08-23 14:48:18 | 04:10:14 | MasterMonk1991 |
| 2018-07-20 01:17:13 | 04:10:32 | Marco |

### More data

@@ -188,11 +211,11 @@ runs %>%

| time\_primary | system\_region | system\_platform |
| ------------: | :------------- | :------------------ |
| 15412 | JPN / NTSC | Wii Virtual Console |
| 18022 | JPN / NTSC | Wii Virtual Console |
| 15848 | JPN / NTSC | Wii Virtual Console |
| 15269 | JPN / NTSC | Wii Virtual Console |
| 15389 | JPN / NTSC | Wii Virtual Console |
| 14258 | JPN / NTSC | Wii Virtual Console |
| 22987 | JPN / NTSC | Nintendo 64 |
| 15689 | JPN / NTSC | Wii Virtual Console |
| 15060 | JPN / NTSC | Wii Virtual Console |
| 15762 | JPN / NTSC | Wii Virtual Console |

## Code of Conduct



Loading…
Cancel
Save