Question

所以我一直在试验Shiny，虽然我的UI的输入部分很好，但我在后端遇到了一些问题。我没有产生任何错误，但我只是得到一个空白的屏幕。这是UI的主旨。

ui <- fluidPage(
   fluidRow(
      column(3,
       wellPanel(
         h4('Weights'),
         ##Various Inputs here that work fine
        )
      ),
     column(9,
         plotlyOutput("plotMain"),
         dataTableOutput('testTable')
      )
    )
)

现在存在一个数据框名称fbb.data，它只是中间数据框的运行。这与上面的权重和其他各种输入相互作用。

server <- function(input, output, session) {
  selected.data <- reactive({
    cbind(fbb.data[,c(input$xvar, 'player','prim.pos')],
          Value = valvar(),
          Price = costvar() )
  })

  weight.server <- reactive({
    c(input$w.fg, input$w.ft, input$w.3pm, input$w.reb, input$w.ast,     input$w.stl, input$w.blk, input$w.pts)
    })

  valvar <- reactive({
    rowSums(fbb.data[,which(names(fbb.data) == "fg.r"):which(names(fbb.data) == "pts.r")] * weight.server())
  })

  costvar <- reactive({
valvar()/sum(valvar()[1:(input$num.teams*input$rost.size)])*((input$doll.per - input$doll.min)*input$num.teams)
  })

  output$testTable <- renderDataTable(selected.data)


  output$plotMain <- renderPlotly({
    p <- ggplot(selected.data(), aes(x = input$xvar , y = Price, shape = prim.pos)) + geom_point()
    ggplotly(p)
  })

我会理解是否有关于情节的问题，但我不能为我的生活弄清楚桌子上发生了什么。

R Shiny Data Table和Plot没有出现，没有抛出错误

0 个答案: