max-alletsee

# Replacement for Read Ruler
# which is going to be deactivated on May 1st, 2023

# make sure to set up an app and the authentication in Pocket's interface: https://github.com/CorrelAid/pocketapi#authentication

# parameters:
# words_per_minute: avg. reading speed in words per minute
# minute_groups: vector indicating which limits to use for the reading time groups

read_ruler <- function(words_per_minute = 500, minute_groups = c(1, 2, 5, 10, 15, 20, 30, 45, 60, 75)) {