Question

问题：

图表图表没有渲染。没有错误。

说明

即使我不使用下面的反应值，它也应该起作用，因为它在观察到的事件中。渲染表格非常合适。

其他信息

AllElements数据绝对是人口密集的！我打印出来检查。它们是double类型的向量。

td

Answer 1

我必须在代码中更改一些内容。

我将数据转换为eventReactive
我没有使用您的函数populateResults并将其替换为独立的渲染函数
我在示例数据集中添加了一列error_sd，以便稍后可以在渲染函数中找到它
我不知道我在这里是否错过了什么，只看看我的代码。

此示例适用于我：

library(shiny)
library(shinyWidgets)
library(shinythemes)
library(datasets)

shinyApp(
  ui = navbarPage(
    "Real Time Instruments",
    tabPanel("Training",

         mainPanel(

           actionButton("analyse", "Train Model", width = "100%")

         )
),
tabPanel("Results",

         tableOutput ( "error"),
         plotOutput("predict_plot")

) 
),
 server = function(input, output, session) {

analyse <- eventReactive(input$analyse , {
  output <- data.frame( x = 1:10 , error_sd = 1:10)
  return(output)
})

output$error <- renderTable({
  analyse()$error_sd} , digits = 5
)

output$predict_plot <- renderPlot({
  # x <- allElements$x
  # xlab <- allElements$x
  # y <- allElements$x
  # ylab <- allElements$x

  plot(analyse()$x, analyse()$x)
})
})

闪亮的renderPlot不起作用

1 个答案: