Skip to content

Bug #34 Fix #39

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Open
clegergh wants to merge 2 commits into
base: main
Choose a base branch
from
Open

Bug #34 Fix #39

Changes from all commits
Commits
Show all changes
2 commits
Select commit Hold shift + click to select a range
b421d11
This forces an autoscale upon loading. This addresses bug #34. I than…
clegergh Nov 6, 2025
eefa3c9
Update app.R with french translation
clegergh Nov 28, 2025
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
46 changes: 28 additions & 18 deletions shiny-visualization/app.R
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -1,16 +1,16 @@
# Install required packages (uncomment to install)
# install.packages("shiny")
# install.packages("readr")
# install.packages("dplyr")
# install.packages("shiny")
# install.packages("readr")
# install.packages("dplyr")
# install.packages("ggplot2")
# install.packages("bslib")
# install.packages("bsicons")
# install.packages("plotly")
# install.packages("leaflet")
# install.packages("htmltools")
# install.packages("DT")
# install.packages("stringr")
# install.packages("tidyr")
# install.packages("bslib")
# install.packages("bsicons")
# install.packages("plotly")
# install.packages("leaflet")
# install.packages("htmltools")
# install.packages("DT")
# install.packages("stringr")
# install.packages("tidyr")

library(shiny)
library(readr)
Expand All @@ -26,14 +26,17 @@ library(stringr)
library(tidyr)

# Custom variables for file paths, organization, and dates
setwd("ENTER YOUR WORKING DIRECTORY HERE")
file_path <- "ENTER YOUR FILE PATH HERE"
organization_name <- "ENTER YOUR ORGANIZATION NAME HERE"
start_date <- "ENTER START DATE HERE"
update_date <- "ENTER UPDATE DATE HERE"
# Ce ci c'est les valuers qu'IL FAUT CHANGER pour les chemins de fichiers, organisation et dates
# Il n'y a pas des autre places pour changer la scripte
setwd("/home/cleger/ORCID-Data-Visualization/data")
file_path <- "/home/cleger/ORCID-Data-Visualization/data/orcid_data_latlng.csv"
organization_name <- "Mount Allison University"
start_date <- "Jan 1, 2023"
update_date <- "Dec 31, 2024"


# Generate subtitle panel for displaying dates
# Cette partie du scripte c'est pour une panneau de sous-titres pour afficher les dates
generateSubtitlePanel <- function(org_name = organization_name, start = start_date, end = update_date) {
div(
class = "subtitle",
Expand All @@ -42,6 +45,7 @@ generateSubtitlePanel <- function(org_name = organization_name, start = start_da
}

# Generate title panel for the UI
# Générer le panneau titre pour l'interface utilisateur
generateTitlePanel <- function(org_name = organization_name, start = start_date, end = update_date) {
tagList(
titlePanel(paste(organization_name, " (", start, " - ", end, ")", sep = "")),
Expand All @@ -53,6 +57,7 @@ generateTitlePanel <- function(org_name = organization_name, start = start_date,
}

# UI function
# Le fonction de l'interface utilisateur
ui <- page_navbar(
theme = bs_theme(version = 5, preset = "bootstrap"),
title = "ORCID Collaboration Dashboard",
Expand Down Expand Up @@ -120,11 +125,14 @@ ui <- page_navbar(
)

# Server function
# Fonction serveur
server <- function(input, output, session) {
# Create a reactive file reader to read the CSV file
# Créez un lecteur de fichiers réactif pour lire le fichier CSV
reader <- reactiveFileReader(intervalMillis = 1000, session, filePath = file_path, readFunc = read.csv)

# Reactive data frame to read and debug
# Trame de données réactive pour la lecture et le débogage
data <- reactive({
df <- reader()
print("Data read. Number of rows:")
Expand Down Expand Up @@ -205,7 +213,9 @@ server <- function(input, output, session) {
xaxis = list(title = "",
tickmode = "linear",
tick0 = 0,
dtick = 1),
dtick = 1,
autorange=TRUE),
),
margin = list(l = 120) # Adjust left margin for longer y-axis labels
)
})
Expand Down Expand Up @@ -438,4 +448,4 @@ server <- function(input, output, session) {
}

# Run the application
shinyApp(ui, server)
shinyApp(ui, server)