pkg-downloads

mikropml package download counts from cranlogs

library(cranlogs)
library(cowplot)
library(glue)
library(magick)
library(rsvg)
library(tidyverse)

Download the downloads

downloads <- cran_downloads(package = "mikropml",
                            from = "2020-11-23") %>%
    mutate(cum_count = cumsum(count))
write_csv(downloads, here::here('data', 'downloads.csv'))
tail(downloads)
#>            date count  package cum_count
#> 1277 2024-05-22    39 mikropml     18573
#> 1278 2024-05-23    16 mikropml     18589
#> 1279 2024-05-24     5 mikropml     18594
#> 1280 2024-05-25    11 mikropml     18605
#> 1281 2024-05-26     0 mikropml     18605
#> 1282 2024-05-27     0 mikropml     18605

Get the badge

badge_url <- "https://cranlogs.r-pkg.org/badges/grand-total/mikropml"
badge_img <- magick::image_read_svg(badge_url, width = 1000)

Plot over time

downloads_plot <- downloads %>% 
    ggplot(aes(date, cum_count)) + 
    geom_line(color = '#c882fc') + 
    scale_x_date(date_labels = "%b %Y") + 
    theme_bw() + 
    labs(x = '', y = 'downloads to date', 
         title = 'mikropml downloads from CRAN',
         caption = glue("last updated: {Sys.Date()}"))

ggdraw() +
    draw_plot(downloads_plot) +
    draw_image(badge_img, 
               x = 0.99, y = 0.99, 
               hjust = 1, vjust = 1, halign = 1, valign = 1,
               width = 0.15)

ggdraw() +
    draw_plot(downloads_plot)