解释反应函数中的代码

Question

1 dat <- reactive({
2    input$myslider
3    mtcars[1:input$myslider,c("mpg", "cyl", "disp")]
4    
5  })
6 
7  output$mytable <- DT::renderDataTable(dat(),
8                                        options = list(paging=FALSE, scrollX =TRUE),
9                                        rownames=TRUE, filter = "top"))
}

大家好，我是R的初学者，我正在学习Shiny的应用。我在Zevross上找到了这个应用程序代码，用DT创建了一个交互式表。我无法理解代码的工作原理。如果有人向我解释这段代码在服务器功能中是如何工作的话会很棒。谢谢:)）

Answer 1

第2行：冗余，您可以删除它，因为它只打印myslider输入的值。

第3行：将第1行中的对象mtcars子集设置为滑块上的数字，以及列mpg，cyl和disp。结果是一个n×3的data.frame。

第4行：空。 ：）

第7行：将基于滑块输入生成data.frame的反应环境dat传递给函数renderDataTable。 Options are passed on到数据表（请参阅所有可用的options here）。此行将结果附加到您的闪亮应用程序中绘制的输出。