Dominar el brillo

Capítulo 11. Marcadores

Este trabajo se ha traducido utilizando IA. Agradecemos tus opiniones y comentarios: [e-mail]

Por defecto en, las aplicaciones Shiny tienen un gran inconveniente en comparación con la mayoría de los sitios web: no puedes marcar la aplicación para volver al mismo lugar en el futuro o compartir tu trabajo con otra persona con un enlace en un correo electrónico. Esto se debe a que, por defecto, Shiny no expone el estado actual de la aplicación en su URL. Afortunadamente, sin embargo, puedes cambiar este comportamiento con un poco de trabajo extra, y este capítulo te mostrará cómo. Como de costumbre, empezaremos cargando Shiny:

library(shiny)

Idea básica

Tomemos una aplicación sencilla que queremos hacer marcable. Esta app dibuja figuras de Lissajous, que reproducen el movimiento de un péndulo. Esta app puede producir una variedad de patrones interesantes que quizá quieras compartir:

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$omega * t() + input$delta) * input$damping ^ t())
  y <- reactive