Question

我有一个文本输入，＆＃34; inputProductID＆＃34; 和动作按钮是＆＃34; actionGetDetails＆＃34;

在文本输入中输入特定产品ID 12345后，单击操作按钮。单击操作按钮时，我希望调用一个函数，该函数将产品ID作为输入参数，并将数据帧作为输出。数据框具有单行和各种列，如ProductName，productDescription等。我希望从数据框中获取ProductName的值，并显示/渲染到该操作按钮单击上的输出文本字段。这是我试过的：

            shinyServer(function(input, output,session) {

              # Here actionGetDetails is the action button
              # inputProductID is the input text field
              ntext <- eventReactive(input$actionGetDetails, {
                 getProductDetails(input$inputProductID)
                 # This function returns a dataframe have a field ProductName
              })

              # Here  output$textvar is the 
               output$textvar <- renderText({
                 ntext$ProductName
                })

我在app上遇到错误：类型＆＃39;关闭＆＃39;不是子集表。

我尝试使用observeEvent（）和反应值的组合任何帮助解决这个问题都将受到赞赏。

Answer 1

ntext是一个返回data.frame的函数，所以你必须像这样使用它：

output$textvar <- renderText({
             ntext()$ProductName
            })

闪亮 - 反应并观察事件混乱

1 个答案: