Ошибка в RShiny UI.r: аргумент "переменная" отсутствует, по умолчанию нет - PullRequest
Новая
       21

Ошибка в RShiny UI.r: аргумент "переменная" отсутствует, по умолчанию нет

0 голосов
/ 18 апреля 2019

Попытка создать файл ui.r для отображения Pert Distribution

Я получил следующую ошибку: Ошибка в ui.r: аргумент "переменная" отсутствует, по умолчанию нет

Общее исправление, которое я видел, состоит в удалении ненужных запятых, и я думаю, что я сделал это. 

server <- function(input, output){

  BS = function(n, births, cat2, statusmin, statusmode, statusmax, impactmin, impactmode, impactmax){
    d1 = births*cat2*rpart(n,statusmin,statusmode,statusmax)*rpart(n,impactmin,impactmode,impactmax)
    return(d1)
  }

output$plotCall <- renderPlot({
  n = input$n
  births = input$births
  cat2 = input$cat2
  statusmin = input$statusmin
  statusmode = input$statusmode
  statusmax = input$statusmax
  impactmin = input$impactmin
  impactmode = input$impactmode
  impactmax = input$impactmax

  gg <- ggplot(data.frame(BS()), aes(x = BS))
  gg <- gg + geom_histogram(aes(y = ..density..),color = "black", fill = "white",
                            binwidth = 2 * IQR(BS) / length(BS)^(1/3))
  gg <- gg + geom_density(fill = "steelblue", alpha = 1/3)
  gg <- gg + scale_x_continuous(labels = comma)
  gg <- gg + theme_bw()
  plot(gg, labels = TRUE, conf.level = .8)
  }

)
}

ui <- shinyUI(fluidPage(

  titlePanel("ROI"),

  sidebarLayout(
    sidebarPanel(
      numericInput('n', 'Number of Simulations', 1000, min = 1, max = 1000, step = 1),
      numericInput('birth', 'Number of Births', 6811, min = 1, max = 10000, step = 1),
      numericInput('cat2', 'Percentage of Category II Strips', 0.84, min = 0.01, max = 1, step = 0.01),
      numericInput('statusmin', '% Status Min', 0.1, min = 0.01, max = 1, step = 0.01),
      numericInput('statusmode', '% Status Most Likely', 0.3, min = 0.01, max = 1, step = 0.01),
      numericInput('statusmax', '% Status Max', 0.4, min = 0.01, max = 1, step = 0.01),
      numericInput('impactmin', '% Impact Min', 0.2, min = 0.01, max = 1, step = 0.01),
      numericInput('impactmode', '% Impact Most Likely', 0.4, min = 0.01, max = 1, step = 0.01),
      numericInput('impactmax', '% Impact Max', 0.64, min = 0.01, max = 1, step = 0.01)


    ),

    mainPanel(
      textOutput("BScall"),
      hr(),
      tabsetPanel(
        tabPanel("Calls", plotOutput("plotCall",width="100%"))
      )
    )
  )
))


shinyApp(ui = ui, server = server)

Я пытаюсь получить гистограмму результатов d1.

...