Johann de Boer jdeboer

## keybase.md

      
              1 file
            
          
              0 forks
            
          
              0 comments
            
          
              0 stars
            
          
                jdeboer
                / keybase.md
            
            
              Created
              June 16, 2022 03:59
            
          
    Keybase proof

I hereby claim:

I am jdeboer on github.
I am johanndeboer (https://keybase.io/johanndeboer) on keybase.
I have a public key ASDIXpXJ1kDZi3PdYR4sXSM06sH5AgWa5mWRvAX1sK8-Zgo

To claim this, I am signing this object:

  
## ga-package-downloads.R
library(tidyverse)

packages <- c("ganalytics", "googleAnalyticsR", "RGoogleAnalyticsPremium", "RGA", "GAR")

df_raw <- cranlogs::cran_downloads(packages, from = "2013-04-09", to = Sys.Date() - 1L)

df <- tbl_df(df_raw) %>%
  group_by(package) %>% mutate(count = cumsum(count)) %>% ungroup() %>%
  filter(count > 0L) %>%
  mutate(package = factor(package) %>% fct_reorder(count, max, .desc = TRUE))

## GAUC2013.R
# Please replace this sample profile ID with that of your own
# Google Analytics profile.
profile_id <- 123456789

# Please ensure you have all of the following libraries
# installed first.
library(ganalytics)
library(httr)
library(XML)
library(lubridate)
	library(tidyverse)

	packages <- c("ganalytics", "googleAnalyticsR", "RGoogleAnalyticsPremium", "RGA", "GAR")

	df_raw <- cranlogs::cran_downloads(packages, from = "2013-04-09", to = Sys.Date() - 1L)

	df <- tbl_df(df_raw) %>%
	group_by(package) %>% mutate(count = cumsum(count)) %>% ungroup() %>%
	filter(count > 0L) %>%
	mutate(package = factor(package) %>% fct_reorder(count, max, .desc = TRUE))
	# Please replace this sample profile ID with that of your own
	# Google Analytics profile.
	profile_id <- 123456789

	# Please ensure you have all of the following libraries
	# installed first.
	library(ganalytics)
	library(httr)
	library(XML)
	library(lubridate)