Maîtriser la brillance

Chapitre 11. Les signets

Cet ouvrage a été traduit à l'aide de l'IA. Tes réactions et tes commentaires sont les bienvenus : [e-mail]

Par défaut, les applications Shiny présentent un inconvénient majeur par rapport à la plupart des sites Web : tu ne peux pas mettre l'application en signet pour revenir au même endroit à l'avenir ou partager ton travail avec quelqu'un d'autre à l'aide d'un lien dans un courriel. C'est parce que, par défaut, Shiny n'expose pas l'état actuel de l'application dans son URL. Mais heureusement, tu peux changer ce comportement avec un peu de travail supplémentaire, et ce chapitre te montrera comment faire. Comme d'habitude, nous commençons par charger shiny :

library(shiny)

Idée de base

Prenons une application simple que nous voulons rendre accessible aux signets. Cette appli dessine des figures de Lissajous, qui reproduisent le mouvement d'un pendule. Cette appli peut produire une variété de motifs intéressants que tu pourrais vouloir partager :

ui <- fluidPage(
  sidebarLayout(
    sidebarPanel(
      sliderInput("omega", "omega", value = 1, min = -2, max = 2, step = 0.01),
      sliderInput("delta", "delta", value = 1, min = 0, max = 2, step = 0.01),
      sliderInput("damping", "damping", value = 1, min = 0.9, max = 1, step = 0.001),
      numericInput("length", "length", value = 100)
    ),
    mainPanel(
      plotOutput("fig")
    )
  )
)
server <- function(input, output, session) {
  t <- reactive(seq(0, input$length, length.out = input$length * 100))
  x <- reactive(sin(input ...