selectInput不工作

Question

library(shiny) 

shinyUI(fluidPage(

    # Application title 
    titlePanel(h1("TEST", align = "center", style = "color:red")), 
    tabsetPanel(
    tabPanel("Marketing",sidebarLayout(
     sidebarPanel(textInput("id",label = "Enter consultant Name"), 
        selectInput('s1','Select Names',choices = c('i','ij','ishu','ishan'),selected = NULL), 
        actionButton("a","Submit") 
       ), 
     mainPanel(
     textOutput('out'), 
     textOutput("sout") 
    ) 
    ) 
    ), 

    tabPanel("Recruitment",sidebarLayout(
     sidebarPanel(textInput("id1",label = "Enter consultant Name"), 
        actionButton("a1","Submit") 
       ), 
     mainPanel(
     textOutput('out1') 
    ) 
    ) 
    ), 

    tabPanel("Engineering",sidebarLayout(
     sidebarPanel(textInput("id2",label = "Enter consultant Name"), 
        actionButton("a2","Submit") 
       ), 
     mainPanel(
     textOutput('out2') 
    ) 
    ) 
    ), 

    tabPanel("Finance",sidebarLayout(
     sidebarPanel(textInput("id3",label = "Enter consultant Name"), 
        actionButton("a3","Submit") 
       ), 
     mainPanel(
     textOutput('out3') 
    ) 
    ) 
    ), 

    tabPanel("Legal",sidebarLayout(
     sidebarPanel(textInput("id4",label = "Enter consultant Name"), 
        actionButton("a4","Submit") 
       ), 
     mainPanel(
     textOutput('out4') 
    ) 
    ) 
    ), 

    tabPanel("Test", 
     mainPanel(
     tableOutput('table') 
    )  
    ) 
) 
) 
) 

库（闪亮）

shinyServer(function(input, output) { 
     observeEvent(input$a, 
     output$out <- renderText(
        input$id), 
     output$sout <- renderText(input$s1) 
    ) 

     observeEvent(input$a1, 
        output$out1 <- renderText(

        input$id1 
        ) 
    ) 

     observeEvent(input$a2, 
        output$out2 <- renderText(

        input$id2 
        ) 
    ) 

     observeEvent(input$a3, 
        output$out3 <- renderText(
        input$id3 
        ) 
    ) 

     observeEvent(input$a4, 
        output$out4 <- renderText(
        input$id4 
        ) 
    ) 
     output$table <- renderTable(read.csv('csv1.csv')) 
    }) 

在这个程序，我想从selectInput功能，只要与ID “A” actionbutton用户点击名称。我试图在observeEvent（）函数下执行此操作，但得到错误： - “eval：invalid'envir'参数的类型为'closure'”。请帮助 在此先感谢

Answer 1

您的服务器功能似乎有问题。您需要在{}以内的observeEvent内包含多行代码。只需更换您的代码：

observeEvent(input$a, 
     output$out <- renderText(
        input$id), 
     output$sout <- renderText(input$s1) 
    ) 

下列要求：

observeEvent(input$a,{ 
    output$out <- renderText(input$id) 
    output$sout <- renderText(input$s1) 
    }) 

我认为这将解决这个问题。

希望它有帮助！