https://github.com/MayaGans/githubCalendar

Creating a visual in Observable, then turning it into a widget. All the R user will need to supply is a data frame of dates and values... I hope)
https://github.com/MayaGans/githubCalendar

Last synced: 30 days ago
JSON representation

Creating a visual in Observable, then turning it into a widget. All the R user will need to supply is a data frame of dates and values... I hope)

• Host: GitHub
• URL: https://github.com/MayaGans/githubCalendar
• Owner: MayaGans
• License: other
• Created: 2020-09-17T15:00:19.000Z (about 4 years ago)
• Default Branch: master
• Last Pushed: 2020-10-11T22:13:46.000Z (about 4 years ago)
• Last Synced: 2024-11-10T21:46:22.986Z (about 1 month ago)
• Language: HTML
• Homepage: https://observablehq.com/@mayagans/a-github-inspired-calendar
• Size: 1.2 MB
• Stars: 24
• Watchers: 3
• Forks: 1
• Open Issues: 1
• Metadata Files:
  • Readme: README.md
  • License: LICENSE

Awesome Lists containing this project

• jimsghstars - MayaGans/githubCalendar - Creating a visual in Observable, then turning it into a widget. All the R user will need to supply is a data frame of dates and values... I hope) (HTML)

README

        
# githubCalendar

Creating a custom visual in Observable, then turning it into an htmlwidget to be used in R! All the user needs to do is supply their own data!

## Install the library

```

devtools::install_github("MayaGans/githubCalendar")

```

## Run the `githubCalendar` function on your data

```

# dates must be Date type

dates <- sample(seq(as.Date('2020-01-01'), as.Date('2020-12-31'), by="day"), 50)

values <- abs(round(rnorm(50, 100, 100), 0))

githubCalendar(dates = dates, values = values)

```

![](inst/img/readme.png)

## Add a dynamic Calendar to your shiny app

```

library(shiny)

githubData <- tidyr::tibble(

    all_dates = c(sample(seq(as.Date('2018/01/01'), as.Date('2019/01/01'), by="day"), 50),

                  sample(seq(as.Date('2019/01/01'), as.Date('2020/01/01'), by="day"), 100),

                  sample(seq(as.Date('2020/01/01'), as.Date('2021/01/01'), by="day"), 200)

    ),

    all_values = abs(round(rnorm(350, 100, 100), 0))

)

ui <- fluidPage(

    fluidPage(

        sliderInput("year", "Select Year", min = 2018, max = 2020, value = 2019),

        githubCalendarOutput("calendar")

    )

)

server <- function(input, output) {

    data <- reactive({

        githubData %>%

            dplyr::filter(lubridate::year(all_dates) %in% input$year)

    })

    # this renders, but when the input changes

    # the data doesn't update, it appends another graph

    output$calendar <- renderGithubCalendar({

        githubCalendar(dates = data()$all_dates, values = data()$all_values)

    })

}

# Run the application

shinyApp(ui = ui, server = server)

```

![](inst/img/readme.gif)