---
title: "Analyzing my logbook data"
author: "Anders Mårell"
date: "2023-06-09"
output: html_document
editor_options: 
  chunk_output_type: console
---


```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)
```

# Tags used per day
Read in the journal file *Readme.md* that is in the *journal* folder. Then extract the lines with date headings at the second level. We can then extract the tags and the dates:
```{r}
# Import data ------------------------------------------------------------------
MyData <- readLines(con = here::here("journal", "Readme.md"))

# Extract lines with headings at the 2nd level ---------------------------------
MyDates <- MyData[grepl(pattern = "##", x = MyData)]

# Extract the tags -------------------------------------------------------------
MyTags <- 
  sub(pattern = "-->",
      replacement = "",
      x = sub(pattern = ".*<!--",
              replacement = "", 
              x = MyDates))

# Extract the dates and replace string by dates --------------------------------
MyDates <- 
  substring(
    MyDates, 
    regexpr(pattern = "[0-9]{4}-[0-9]{2}-[0-9]{2}", text = MyDates), 
    regexpr(pattern = "[0-9]{4}-[0-9]{2}-[0-9]{2}", text = MyDates) + 9)

# Format as date ---------------------------------------------------------------
MyDates <- as.Date(MyDates)
```

We can now create a data frame with the date and tags:

```{r}
MyTags <- data.frame(date = MyDates, tags = MyTags)
```

Save the data frame as a csv file in the *module2/exo4* folder:

```{r}
write.table(x = MyTags, 
          file = here::here("module2", "exo4", "mytags.csv"), 
          row.names = FALSE, col.names = TRUE, 
          fileEncoding = "UTF-8", quote = FALSE, sep = ";")
```

Calculate the number of days per tag:
```{r}
table(MyTags$tags)
```