在服务器上，您可以将table（不是一个很好的名称，也许可以使用其他名称，如my_table）设置为reactiveValues()，然后观察input$portfolio中的更改

table <- reactiveValues(var=NULL)

observeEvent(input$portfolio, {
  if(input$portfolio == "p1") {
    table$var = <- someFunction()
  }
})

下面是使用mtcars的完整示例

library(shiny)

ui <- fluidPage(
  selectInput("make","Make:", choices = rownames(mtcars)),
  tableOutput("subtable")
)

server <- function(input, output, session) {
  subtable <- reactiveValues(var=NULL)
  
  observeEvent(input$make, {
    makes <- rownames(mtcars)
    subtable$var <- dplyr::filter(cbind(makes,mtcars), makes == input$make)
  })
  
  output$subtable <- renderTable(subtable$var)
}

shinyApp(ui, server)