Skip to content

fix: bundle github usernames csv in system file to allow server side to read allowed usernames list. #12

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

Merged
massarin merged 2 commits into from
Sep 9, 2025
Merged

fix: bundle github usernames csv in system file to allow server side to read allowed usernames list. #12

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
2 commits
Select commit Hold shift + click to select a range
4437136
fix: bundle github usernames csv in system file to allow server side …
massarin Sep 9, 2025
2a8183d
fix: regex pattern html
massarin Sep 9, 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
2 changes: 1 addition & 1 deletion .Rbuildignore
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -6,4 +6,4 @@
^\.github$
^.*\.Rproj$
^\.Rproj\.user$
*.html
.*\.html$
0 modules/github_usernames.csv → inst/extdata/github_usernames.csv
View file
Open in desktop
File renamed without changes.
6 changes: 4 additions & 2 deletions modules/_github_username.Rmd
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -1,7 +1,8 @@
```{r github-username-setup, include=FALSE}
# Read GitHub usernames from CSV
tryCatch({
github_users <- read.csv("github_usernames.csv", stringsAsFactors = FALSE)
csv_path <- system.file("extdata", "github_usernames.csv", package = "quiz")
github_users <- read.csv(csv_path, stringsAsFactors = FALSE)
# Create choices with display format: "First Last (username)"
username_choices <- setNames(
github_users$GitHub.Username,
Expand Down Expand Up @@ -40,7 +41,8 @@ div(
# Read GitHub usernames in server context
username_choices <- reactive({
tryCatch({
github_users <- read.csv("modules/github_usernames.csv", stringsAsFactors = FALSE)
csv_path <- system.file("extdata", "github_usernames.csv", package = "quiz")
github_users <- read.csv(csv_path, stringsAsFactors = FALSE)
# Create choices with display format: "First Last (username)"
setNames(
github_users$GitHub.Username,
Expand Down
Loading