andreas/FreesearchR
1
0
Fork 0
mirror of https://github.com/agdamsbo/FreesearchR.git synced 2026-06-19 04:27:30 +02:00
Code Issues Projects Releases Packages Wiki Activity

ready for new release
Some checks failed
pkgdown.yaml / pkgdown (push) Has been cancelled
Details

Browse source
This commit is contained in:
Andreas Gammelgaard Damsbo 2025-09-23 13:14:49 +02:00
commit 2ba0fd60b3
No known key found for this signature in database
22 changed files with 1759 additions and 714 deletions
Download patch file Download diff file Expand all files Collapse all files

11
inst/apps/FreesearchR/app.R
View file

@ -1,7 +1,7 @@
########
#### Current file: /var/folders/9l/xbc19wxx0g79jdd2sf_0v291mhwh7f/T//RtmphmfdDq/filea00a3587a79a.R
#### Current file: /var/folders/9l/xbc19wxx0g79jdd2sf_0v291mhwh7f/T//RtmpZNW8fR/filee8e87e53d0c0.R
########
i18n_path <- system.file("translations", package = "FreesearchR")
@ -11187,13 +11187,16 @@ load_data <- function() {
# is_local = is.na(Sys.getenv('SHINY_SERVER_VERSION', NA))
server <- function(input, output, session) {
## Listing files in www in session start to keep when ending and removing
## everything else.
files.to.keep <- list.files("www/")
## This works in a minimal working example, but not here. Will investigate.
# shinyjs::runjs("var language = window.navigator.userLanguage || window.navigator.language;
# var shortLang = language.split('-')[0];
# Shiny.onInputChange('browser_lang', shortLang);")
load_data()
##############################################################################
@ -11277,7 +11280,7 @@ server <- function(input, output, session) {
)
})
observe({
shiny::observe({
updateSelectInput(
session,
"language_select",

8
inst/apps/FreesearchR/www/scripts.js
View file

@ -1,10 +1,10 @@
// Automatically close drop-downs on navigation
// Thanks to claude.ai
$(document).ready(function() {
var language = window.navigator.userLanguage || window.navigator.language;
var iso639Language = language.split('-')[0];
Shiny.onInputChange('browser_lang', iso639Language);
console.log('Browser language:',iso639Language);
var language = window.navigator.userLanguage || window.navigator.language || navigator.language;
var shortLang = language.split('-')[0];
Shiny.onInputChange('browser_lang', shortLang, {priority: 'event'});
console.log('Browser language:',language);
});