DEV Community

Andrew B. Collier
Andrew B. Collier

Posted on • Originally published at datawookie.dev on

{clockify} Time Tracking from R

{clockify} — Time Tracking from R

At Fathom Data we use Clockify to keep detailed records of the time that we spend working on our clients’ projects. Up until fairly recently we manually generated timesheets at the end of each month that were sent through to the clients along with their invoices. Our experience has been that providing detailed timesheets helps foster trust and transparency. However, with a growing team and an expanding clientele, generating these timesheets has become progressively more laborious. Time to automate!

Luckily Clockify exposes an extensive API. I built a small R package, {clockify} which is a wrapper around the Clockify API, making it easy to tap into our timesheet data. We’re then using R Markdown to generate some pretty sweet automated timesheets and reports. This reporting all happens automatically courtesy of GitLab CI. But that’s a story for another day. Let’s take a look at {clockify}.

This post documents {clockify}-0.0.9.

Installation

You can install the latest development version straight from GitHub.

remotes::install_github("datawookie/clockify")
Enter fullscreen mode Exit fullscreen mode

Or you can install a stable version from CRAN.

install.packages("clockify")
Enter fullscreen mode Exit fullscreen mode

The package documentation is available here.

Once you’ve installed the package, load it into R and check the version.

library(clockify)

packageVersion("clockify")

[1] '0.0.9'
Enter fullscreen mode Exit fullscreen mode

API Key

You’re going to need to have an API key from your Clockify account. If you don’t yet have an account, create one. Then retrieve the API key from the account settings.

Get Started

Set the API key to be used for the session. I store my API key in an environment variable called CLOCKIFY_API_KEY.

CLOCKIFY_API_KEY = Sys.getenv("CLOCKIFY_API_KEY")

set_api_key(CLOCKIFY_API_KEY)
Enter fullscreen mode Exit fullscreen mode

Let’s turn on logging so we can see what’s happening behind the scenes.

library(logger)

log_threshold(DEBUG)
Enter fullscreen mode Exit fullscreen mode

Workspaces

Clockify uses workspaces to group people and projects. Every Clockify account is automatically associated with a default workspace, but may be linked to other workspaces too.

Use workspaces() to retrieve a list of available workspaces.

workspaces()

2021-09-09 08:21:32 — GET /workspaces

# A tibble: 2 × 2
  workspace_id name       
  <chr> <chr>      
1 5ef46294df73063139f60bfc Fathom Data
2 61343c45ab05e02be2c8c1fd Personal   
Enter fullscreen mode Exit fullscreen mode

I have two workspaces associated with my account, Personal and Work.

Select the Personal workspace. All subsequent operations will apply within this workspace.

workspace("61343c45ab05e02be2c8c1fd")

2021-09-09 08:21:32 — Set active workspace -> 61343c45ab05e02be2c8c1fd.

[1] "61343c45ab05e02be2c8c1fd"
Enter fullscreen mode Exit fullscreen mode

Users

The users() function generates a table of all users linked to the workspace.

users()

2021-09-09 08:21:32 — GET /workspaces/61343c45ab05e02be2c8c1fd/users

# A tibble: 2 × 3
  user_id user_name status
  <chr> <chr> <chr> 
1 5f227e0cd7176a0e6e754409 Andrew ACTIVE
2 5ef46293df73063139f60bf5 Emma ACTIVE
Enter fullscreen mode Exit fullscreen mode

Retrieve information from your user profile.

user()

2021-09-09 08:21:32 — GET /user

# A tibble: 1 × 3
  user_id user_name status
  <chr> <chr> <chr> 
1 5f227e0cd7176a0e6e754409 Andrew ACTIVE
Enter fullscreen mode Exit fullscreen mode

Clients

So, who do you work for? Let’s get a list of clients associated with the workspace.

clients()

2021-09-09 08:21:33 — GET /workspaces/61343c45ab05e02be2c8c1fd/clients

# A tibble: 2 × 3
  client_id workspace_id client_name
  <chr> <chr> <chr>      
1 61343c6c00dc8f48962b9be9 61343c45ab05e02be2c8c1fd Community  
2 61343c5d00dc8f48962b9be3 61343c45ab05e02be2c8c1fd Fathom Data
Enter fullscreen mode Exit fullscreen mode

Projects

Get a table of projects. The endpoint used to retrieve projects is paginated, so there are multiple API calls to retrieve the complete list.

projects()

2021-09-09 08:21:33 — GET /workspaces/61343c45ab05e02be2c8c1fd/projects
2021-09-09 08:21:33 — Page contains 2 results.
2021-09-09 08:21:33 — GET /workspaces/61343c45ab05e02be2c8c1fd/projects
2021-09-09 08:21:33 — Page is empty.
2021-09-09 08:21:33 — API returned 2 results.

# A tibble: 2 × 4
  project_id project_name client_id billable
  <chr> <chr> <chr> <lgl>   
1 6134506c777d5361dcdeb3b5 {cex} 61343c5d00dc8f48962b9be3 TRUE    
2 61343c9ba15c1d53ad33369f {clockify} 61343c5d00dc8f48962b9be3 FALSE   
Enter fullscreen mode Exit fullscreen mode

I’m logging time on two projects, {clockify} and {emayili}.

Let’s change the logging threshold, because it’s going to get noisy.

log_threshold(INFO)
Enter fullscreen mode Exit fullscreen mode

Time Entries

The really interesting data is captured in the time entries: how much time am I spending on each of the projects and what am I doing?

Retrieve Time Entries

Retrieve the time entries for the authenticated user.

time_entries()

# A tibble: 8 × 4
  id project_id description duration
  <chr> <chr> <chr> <dbl>
1 61343cc1777d5361dcdea70a 61343c9ba15c1d53ad33369f Set up GitHub Acti… 12  
2 61343d06777d5361dcdea729 61343c9ba15c1d53ad33369f Make coffee 5  
3 61343d27ab05e02be2c8c266 61343c9ba15c1d53ad33369f Populate README.Rmd 68  
4 613448d7777d5361dcdead37 61343c9ba15c1d53ad33369f Add GET /workspace… 12.0
5 61344bcad01d3b4a27a82310 61343c9ba15c1d53ad33369f Add GET /workspace… 31.8
6 6134548f00dc8f48962bace7 6134506c777d5361dcdeb3b5 Add GET /ticker/{s… 16.0
7 6134585a777d5361dcdebc5c 6134506c777d5361dcdeb3b5 Add GET /tickers/{… 16.5
8 61345c45d01d3b4a27a833c7 6134506c777d5361dcdeb3b5 Add GET /last_pric… 31.6
Enter fullscreen mode Exit fullscreen mode

You can also get the start and end times (as well as a bunch of other fields) for each entry by setting concise = FALSE.

time_entries(concise = FALSE) %>% select(id, starts_with("time"))

# A tibble: 8 × 3
  id time_start time_end           
  <chr> <dttm> <dttm>             
1 61343cc1777d5361dcdea70a 2021-09-03 05:15:00 2021-09-03 05:27:00
2 61343d06777d5361dcdea729 2021-09-03 05:27:00 2021-09-03 05:32:00
3 61343d27ab05e02be2c8c266 2021-09-03 05:45:00 2021-09-03 06:53:00
4 613448d7777d5361dcdead37 2021-09-05 04:34:31 2021-09-05 04:46:30
5 61344bcad01d3b4a27a82310 2021-09-05 04:47:06 2021-09-05 05:18:56
6 6134548f00dc8f48962bace7 2021-09-05 05:24:30 2021-09-05 05:40:29
7 6134585a777d5361dcdebc5c 2021-09-05 05:40:42 2021-09-05 05:57:13
8 61345c45d01d3b4a27a833c7 2021-09-05 05:57:25 2021-09-05 06:29:01
Enter fullscreen mode Exit fullscreen mode

Retrieve time entries for another user specified by their user ID.

time_entries(user_id = "5ef46293df73063139f60bf5")

# A tibble: 2 × 4
  id project_id description duration
  <chr> <chr> <chr> <dbl>
1 613630ebba4b374e57155a72 61343c9ba15c1d53ad33369f Another test entry 87  
2 613630cb89516b1767a56a08 61343c9ba15c1d53ad33369f Creating hex logo 45.4
Enter fullscreen mode Exit fullscreen mode

Insert Time Entry

What about inserting a new time entry? No problem, call time_entry_insert() and supply the details.

prepare_cran_id <- time_entry_insert(
 project_id = "61343c9ba15c1d53ad33369f",
 start = "2021-08-30 08:00:00",
 end = "2021-08-30 10:30:00",
 description = "Prepare for CRAN submission"
)
Enter fullscreen mode Exit fullscreen mode

The ID for the newly inserted time entry is returned.

prepare_cran_id

[1] "6139c40ff1d18b7ed667a7bd"
Enter fullscreen mode Exit fullscreen mode

Confirm that it has been inserted.

time_entries(concise = FALSE) %>% select(id, description, duration)

# A tibble: 9 × 3
  id description duration
  <chr> <chr> <dbl>
1 6139c40ff1d18b7ed667a7bd Prepare for CRAN submission 150  
2 61343cc1777d5361dcdea70a Set up GitHub Actions 12  
3 61343d06777d5361dcdea729 Make coffee 5  
4 61343d27ab05e02be2c8c266 Populate README.Rmd 68  
5 613448d7777d5361dcdead37 Add GET /workspaces/{workspaceId}/projects/… 12.0
6 61344bcad01d3b4a27a82310 Add GET /workspaces/{workspaceId}/projects/… 31.8
7 6134548f00dc8f48962bace7 Add GET /ticker/{symbol1}/{symbol2} 16.0
8 6134585a777d5361dcdebc5c Add GET /tickers/{symbol1}/{symbol2}/.../{s… 16.5
9 61345c45d01d3b4a27a833c7 Add GET /last_price/{symbol1}/{symbol2} 31.6
Enter fullscreen mode Exit fullscreen mode

Delete Time Entry

What about deleting a time entry? Easy, just call time_entry_delete() and supply the time entry ID.

time_entry_delete(prepare_cran_id)

[1] TRUE
Enter fullscreen mode Exit fullscreen mode

Confirm that it has been deleted.

time_entries(concise = FALSE) %>% select(id, description, duration)

# A tibble: 8 × 3
  id description duration
  <chr> <chr> <dbl>
1 61343cc1777d5361dcdea70a Set up GitHub Actions 12  
2 61343d06777d5361dcdea729 Make coffee 5  
3 61343d27ab05e02be2c8c266 Populate README.Rmd 68  
4 613448d7777d5361dcdead37 Add GET /workspaces/{workspaceId}/projects/… 12.0
5 61344bcad01d3b4a27a82310 Add GET /workspaces/{workspaceId}/projects/… 31.8
6 6134548f00dc8f48962bace7 Add GET /ticker/{symbol1}/{symbol2} 16.0
7 6134585a777d5361dcdebc5c Add GET /tickers/{symbol1}/{symbol2}/.../{s… 16.5
8 61345c45d01d3b4a27a833c7 Add GET /last_price/{symbol1}/{symbol2} 31.6
Enter fullscreen mode Exit fullscreen mode

Test Coverage

I’ve started writing unit tests. You can check on the current test coverage here. Evidently there’s still work to be done!

Conclusion

Exposing an API adds a lot of value to Clockify as a time tracking product. If you’re using Clockify, then you’ll find the {clockify} package convenient and useful for accessing those data. It plays particularly well in automated reporting scenarios.

Discussion (0)