R Shiny не строит вообще - PullRequest
Новая
       24

R Shiny не строит вообще

2 голосов
/ 10 апреля 2020

Я новичок в блеске, и я пытаюсь использовать его для симуляции модели добычи / хищника.

Сначала я хотел сгенерировать кадр данных со всеми начальными позициями для каждого животного; и попробуйте построить его с помощью ggplot; но когда я нажал на actionButton, сюжет так и не появился. Я не понимаю, почему и есть какое-либо сообщение об ошибке, чтобы я хотя бы знал, что не так.

Вот код: 

library(shiny)
library(tidyverse)
library(ggplot2)

ui <- fluidPage(
  sidebarLayout(
    sidebarPanel(
      sliderInput("nPrey", "select total number of preys", 1, 100, 10, 1),
      sliderInput("nHunter", "select total number of Hunters", 1, 100, 10, 1),
      actionButton ("play", "Begin simulation")
    ),  
    mainPanel(
      plotOutput("plot")
    )
  )
)

server <- function(input, output, session) {
  zMax = 20   
  simulation <- eventReactive(input$play, {
    createInitialTable(input$nPrey, input$nHunter)  
  })
  output$plot <- renderPlot({    
    p <- ggplot() +   
      geom_point(aes_string(x="X",y="Y"), data=simulation()) +  
      coord_cartesian(xlim =c(0, zMax), ylim = c(0, zMax)) 
  }) 
  createInitialTable <- function (nPrey, nHunter){ 
    aAnimal <- data.frame() 
    cVar <- c("X", "Y")  
    for (i in 1:nPrey){  
      aAnimal <- rbind(aAnimal, c(round(runif(1)*zMax), round(runif(1)*zMax)))
    }
    for (i in 1:nHunter){
      aAnimal <- rbind(aAnimal, c(round(runif(1)*zMax), round(runif(1)*zMax)))
    }
    colnames(aAnimal) <- cVar
    return (aAnimal)  
  }
}

shinyApp(ui, server)

Спасибо, что прочитали это

1 Ответ

1 голос
/ 10 апреля 2020

Простое исправление: удалите p <- и вам должно быть хорошо go. Однако для улучшения вам необходимо проверить реактивность своего выполнения, когда nPrey и Hunter динамически изменяются. </p>

...