Question

我有一个随机生成的data.frame。用户可以修改滑块以选择点数。然后我绘制这个data.frame。

我想添加一个按钮，而不是单击时，它会在之前随机生成的data.frame中执行修改（但不重新生成data.frame）。修改是一个voronoid松弛，每次单击按钮并生成图形时应该执行一次。

直到现在，我还没有取得类似的成就......

ui.R

library(shiny)

# Define UI for application that draws a histogram
shinyUI(fluidPage(

  # Application title
  titlePanel("Map Generator:"),

  # Sidebar with a slider input for the number of bins
  sidebarLayout(
    sidebarPanel(
      p("Select the power p to generate 2^p points."),
      sliderInput("NumPoints",
                  "Number of points:",
                  min = 1,
                  max = 10,
                  value = 9),
      actionButton("GenPoints", "Generate"),
      actionButton("LloydAlg", "Relaxe")
    ),

    # Show a plot of the generated distribution
    mainPanel(



      plotOutput("distPlot",height = 700, width = "auto")
    )
  )
))

server.R

library(shiny)
library(deldir)

shinyServer(function(input, output) {


  observeEvent(input$NumPoints,{

    x = data.frame(X = runif(2^input$NumPoints,1,1E6),
                   Y = runif(2^input$NumPoints,1,1E6))

    observeEvent(input$LloydAlg, {
        x = tile.centroids(tile.list(deldir(x)))
    })

    output$distPlot <- renderPlot({
        plot(x,pch = 20,asp=1,xlim=c(0,1E6),ylim = c(0,1E6))
  })

  })
})

当然有些事情我一定做错了，但是我很擅长发光我无法弄清楚我做错了什么......

Answer 1

这应该有用（尽管我很确定这可以改进）：

shinyServer(function(input, output) {
  library(deldir)  

  data = data.frame(
    X = runif(2^9, 1, 1E6),
    Y = runif(2^9, 1, 1E6)
  )

  rv <- reactiveValues(x = data)

  observeEvent(input$GenPoints, {
    rv$x <- data.frame(
      X = runif(2^input$NumPoints,1,1E6),
      Y = runif(2^input$NumPoints,1,1E6)
    )
  })
  observeEvent(input$LloydAlg, {
    rv$x = tile.centroids(tile.list(deldir(rv$x)))
  })

  output$distPlot <- renderPlot({
    plot(rv$x,pch = 20,asp=1,xlim=c(0,1E6),ylim = c(0,1E6))
  })
})

首先，我初始化要绘制的点。我使用runif(2^9, 1, 1E6)因为sliderInput的起始值始终为9。

我还从observeEvent移除了sliderInput并将其移至GenPoints actionButton。

R Shiny：创建一个更新data.frame的按钮

1 个答案: