我有一個閃亮的應用程式，用于對 10 行iris資料進行采樣。
當我第一次啟動這個閃亮的應用程式時，我需要單擊sampling操作按鈕來顯示采樣iris行。
iris當我第一次打開應用程式時，是否可以預先分配一個允許閃亮顯示采樣資料的值？
下面是原始代碼。
library(shiny)
ui = fluidPage(
actionButton(inputId = "sampling", label = "Sample rows"),
tableOutput("DFTable")
)
server = function(input, output, session){
n <- eventReactive(input$sampling, {
getrows <- dim(iris)[1]
return(sample(1:getrows, 10))
})
output$DFTable <- renderTable(iris[n(), ])
}
shinyApp(ui, server)
我嘗試了兩種方法，都沒有奏效。
- 啟動默認值
n
n <- reactiveVal(value = 1:10)
- 使用
if()功能
output$DFTable <- renderTable(
if(is.null(n())){n() = 1:10}
iris[n(), ]
)
非常感謝你的幫助。
uj5u.com熱心網友回復：
以下內容對您有用嗎？
library(shiny)
ui = fluidPage(
actionButton(inputId = "sampling", label = "Sample rows"),
tableOutput("DFTable")
)
server = function(input, output, session){
values <- reactiveValues()
values$n <- sample(1:nrow(iris), 10)
observeEvent(input$sampling, {
values$n <- sample(1:nrow(iris), 10)
})
output$DFTable <- renderTable(iris[values$n, ])
}
shinyApp(ui, server)
轉載請註明出處，本文鏈接：https://www.uj5u.com/yidong/446282.html