使用閃亮的selectizeInput連接R腳本

Question

我有一個R腳本（我們稱之為myscript.R），它是input $ year的函數。

在Shinyapp中選擇年份后，我希望計算機運行“ myscript.R”嗎？

我嘗試了以下結構的一種，但它不起作用

fun=function(input,ouput,session){
    year= input$year
}

observeEvent(input$year,{
    fun(input,output,session)
})

感謝您的回答！

Answer 1

我不確定腳本中的功能是否真的是您想要的。 如果要使輸出取決於輸入，則可以在Shiny中執行以下操作：

library(shiny)

ui <- fluidPage(
  selectInput("year","Year: ",choices=c(2000,2001,2002)),
  textOutput("test")
)

server <- function(input, output, session) {

  test_reactive <- reactive({
    year = as.numeric(input$year)
    year = year + 1
    return(year)
  })

  output$test <- renderText({
    test_reactive()
  })
}

runApp(shinyApp(ui, server))

如果您確實要從腳本以及在script.R中調用函數，則可以使用以下函數：

my_function <- function(year)
{
...
}

您應該在服務器功能上方的某個位置執行source(script.R) ，並在將年份加1的位置執行my_function(year) 。

希望這可以幫助。