使用响应式调用 shinyServer 中的函数

Question

我有一个闪亮的应用程序，它根据用户输入调用外部函数。此函数根据输入更新数据框，因此可用于渲染绘图。

getData 函数()

getData= function(inpName)
{
   // a piece of code based on inpName
}

shinyUI.R

library(shiny)
shinyUI(fluidPage(
  titlePanel("title"),
  sidebarLayout(
    sidebarPanel(
      textInput("name","Enter a name")),
    mainPanel())
))

shinyServer.R

library(shiny)
shinyServer(function(input,output)
  {
  getData=reactive({getData(input$name) })
})

无论我尝试什么，我似乎都无法让 shinyServer 调用该函数并更新一个 df。有人可以建议做错了什么吗？感谢任何帮助。

Answer 1

您不想在服务器函数中覆盖getData。

library(shiny)
getData <- function(inpName) 
    if (inpName %in% names(mtcars)) mtcars[,inpName] else NULL

shinyApp(
    shinyUI(fluidPage(
        titlePanel("title"),
        sidebarLayout(
            sidebarPanel(
                textInput("name","Enter a name")),
            mainPanel(
                verbatimTextOutput('tab')
            ))
    )),
    shinyServer(function(input, output, session) {
        ## The first way
        ## dat <- reactive({ getData(input$name) })

        ## The other way
        vals <- reactiveValues(dat=NULL)
        observeEvent(input$name, vals$dat <- getData(input$name))

        output$tab <- renderPrint({ summary(vals$dat) })
    })
)