Générer un lien HTML vers la page web filtrée de SHINY

Question

J'ai une application Shiny avec quelques filtres qui me permettent de choisir différentes combinaisons de variables à afficher dans un graphique.

Disons que j'ai un filtre selectInput appelé "car" qui contient 3 types de voitures - "Audi", "BMW" et "Toyota". Lorsque je navigue dans l'application shiny, la sélection par défaut est définie sur Audi (je sais que je peux trier cette liste par ordre alphabétique, etc.)

Mais est-il possible de spécifier un html lien directement à une option de filtre particulière ?

Par exemple, quelque chose comme : https://myapp/cars="BMW"

Je ne suis pas très familier avec les technologies web mais j'espère qu'il existe un moyen de spécifier de manière programmatique un lien direct vers les options filtrées dans une application Shiny sans avoir à sélectionner manuellement l'option de filtrage.

Merci de votre lecture.

Answer 1

Voici un exemple d'application par Dean Attali à GitHub :

library(shiny)

ui <- fluidPage(
  textInput("name", "Name"),
  numericInput("age", "Age", 25)
)

server <- function(input, output, session) {
  observe({
    query <- parseQueryString(session$clientData$url_search)
    if (!is.null(query[['name']])) {
      updateTextInput(session, "name", value = query[['name']])
    }
    if (!is.null(query[['age']])) {
      updateNumericInput(session, "age", value = query[['age']])
    }
  })
}

shinyApp(ui, server)