R 如何将ui下拉菜单选项链接到shiny中的服务器输出

超级新的闪亮。我正在尝试开发一个应用程序，可以计算不同的相关性/一致性系数以及显示图表

我不知道如何从下拉菜单链接我的测试选项。在这一点上，我只能使用cor和三个选项进行相关性测试——斯皮尔曼、皮尔森和肯德尔。我想合并Cohen的kappa测试（使用包fmsb和命令kappa.test（selectedData（））。我试图在renderPrint命令中包含if-else语句，但一直收到错误消息

在这个阶段，我不太关心每个测试使用什么合适的变量。我把代码贴在下面

谢谢

library(shiny)

# Loading package for Kappa test
library(fmsb)

# Generating simulated data
   dat <- as.data.frame(dat)

库（闪亮）
#卡帕试验加载包
图书馆（fmsb）
#生成模拟数据
dat您只需在
renderPrint
函数中输入您的条件：

output$stats <- renderPrint({
    measure <- input$measure
    mydat <- selectedData()
    if(measure == "kappa") {
      Kappa.test(mydat[,1], mydat[,2])
    } else {
      round(cor(mydat, method = measure), 3)
    }
})

output$stats
cor
函数仍然只采用它所使用的方法。你需要单独处理这个新选择。
server <- function(input, output){

  # Combine the selected variables into a new data frame
  selectedData <- reactive({
    dat[, c(input$xcol, input$ycol)]
  })

  output$plot1 <- renderPlot({
    plot(selectedData(),pch = 20, cex = 3, col = "red")
  })

  output$stats <- renderPrint({

      round(cor(selectedData(), method = input$measure), 3)
      })
}

shinyApp(ui = ui, server = server)

output$stats <- renderPrint({
    measure <- input$measure
    mydat <- selectedData()
    if(measure == "kappa") {
      Kappa.test(mydat[,1], mydat[,2])
    } else {
      round(cor(mydat, method = measure), 3)
    }
})