Glänzend meistern

Kapitel 11. Lesezeichen setzen

Diese Arbeit wurde mithilfe von KI übersetzt. Wir freuen uns über dein Feedback und deine Kommentare: [e-mail]

Standardmäßig haben Shiny-Apps im Vergleich zu den meisten Websites einen großen Nachteil: Du kannst die App nicht mit einem Lesezeichen versehen, um in Zukunft an dieselbe Stelle zurückzukehren oder deine Arbeit mit einem Link in einer E-Mail mit anderen zu teilen. Das liegt daran, dass Shiny standardmäßig den aktuellen Status der App nicht in seiner URL angibt. Glücklicherweise kannst du dieses Verhalten mit ein wenig zusätzlicher Arbeit ändern, und dieses Kapitel zeigt dir, wie. Wie immer beginnen wir damit, Shiny zu laden:

library(shiny)

Grundidee

Nehmen wir eine einfache App, die wir lesezeichenfähig machen wollen. Diese App zeichnet Lissajous-Figuren, die die Bewegung eines Pendels nachahmen. Diese App kann eine Vielzahl von interessanten Mustern erzeugen, die du vielleicht teilen möchtest:

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 ...