闪亮的服务器返回错误的函数值

Question

我是闪亮的新手（和任何网络应用程序的东西），但相当精通 R。我正在尝试构建一个相当基本的页面，它在加载页面之前运行 API 调用，根据响应获取一些输入，然后运行另一个 API 调用并进行一些分析。我在输入时遇到问题。

这是我的用户界面：

shinyUI(fluidPage(

  # Application title
  titlePanel("IGP Risk Analysis"),

  sidebarLayout(
    sidebarPanel(
      selectInput("portfolio", "Underlying Portfolio:", 
                  choices = portfolioList),  
      selectInput("portDate", "Portfolio Date:",
                  choices = "Pick a portfolio..."),
      width = 2),

    mainPanel(
      tabsetPanel(type = "tabs", 
                  tabPanel("Plot", plotOutput("plot")), 
                  tabPanel("Summary", verbatimTextOutput("summary")), 
                  tabPanel("Table", tableOutput("table"))
      )
    )
  )
))

我的服务器代码如下：

shinyServer(function(input, output, session) {

    portfolioInput <- reactive({
      temp <- setnames(sendRequest(theURL, myUN, myPW, action = "GetPortfolios"), "Available Portfolios")
      portfolioList <- temp[!grepl("AAA|ZZZ",unlist(temp)),]
      return(portfolioList)
    })

  observe({
    portfolioDates <- setnames(sendRequest(theURL, myUN, myPW, action = "GetPortfolioDates", 
                                           portfolioName = input$portfolio, portfolioCurrency = "USD"),
                               "Available Dates")
    updateSelectInput(session, "portDate",
                    choices = c("Pick One", portfolioDates),
                    selected = "Pick One")
  })
})

它正在工作，没有错误或警告，但第一个输入框正在显示 sendRequest() 的结果。它没有设置名称，也没有设置响应的子集。 IE。 - 在我得到的第一个 selectInput 框中：

theResponse.ArrayOfString.string
AAA - IGP\\Diver\\20151007
AAA - IGP\\Diver\\TEST
REAL
BD
Bvdh
Cap
Cas
Diver
IGP Aggregate
ZZZ - Archive
ZZZ - Archive\\AAA - IGP

我想要的地方：

Available Portfolios
REAL
BD
Bvdh
Cap
Cas
Diver
IGP Aggregate

这对我来说毫无意义，因为它似乎忽略了代码。

由于portfolioList 是静态的，即在您第一次加载页面时只需要加载一次，我尝试在服务器函数之外获取列表。我在想这会设置一个全局变量，然后我可以在 UI 中引用。这没有用。任何想法为什么这种方法不起作用？

这与服务器功能中的“会话”有什么关系吗？我有旧的会话正在运行吗？ “会话”是 R 会话吗？当我在 RStudio 中重新启动应用程序时它会重新启动吗？

Answer 1

谢谢大家！！！我想通了，或者我想出了解决问题的方法。非常感谢 Sebastion 引导我朝着正确的方向前进。 （还要感谢this post。）我只发布了一个回答，对此表示敬意。 Sebastion 和其他人的所有道具。

这是工作界面：

shinyUI(fluidPage(

  # Application title
  titlePanel("IGP Risk Analysis"),

  sidebarLayout(
    sidebarPanel(
      uiOutput("portfolio"),  
      uiOutput("portDate"),
      width = 2),

    mainPanel(
      tabsetPanel(type = "tabs", 
                  tabPanel("Plot", plotOutput("plot")), 
                  tabPanel("Summary", verbatimTextOutput("summary")), 
                  tabPanel("Table", tableOutput("table"))
      )
    )
  )
))

这里是服务器：

shinyServer(function(input, output, session) {

  output$portfolio <- renderUI ({
    temp <- setNames(sendRequest(theURL, myUN, myPW, action = "GetPortfolios"), "Available Portfolios")
    temp <- temp[sapply(temp, function (x) !grepl("AAA|ZZZ",x)),]
    selectInput("portfolio", "Underlying Portfolio:", choices = c("Pick One",temp))
  })

  output$portDate <- renderUI ({
    if (is.null(input$portfolio) || input$portfolio == "Pick One") return() else { 
           portfolioDates <- setNames(sendRequest(theURL, myUN, myPW, action = "GetPortfolioDates", 
                                                  portfolioName = input$portfolio, portfolioCurrency = "USD"),
                                      "Available Dates")
           selectInput("portDate", "Portfolio Date",
                             choices = c("Pick One", portfolioDates),
                             selected = "Pick One")
    }

  })
})

Answer 2

给你一些开始，renderUI的最小例子：

    shinyApp(

  ui = sidebarLayout(
    sidebarPanel(
      uiOutput("portfolio"),  
      selectInput("portDate", "Portfolio Date:",
                  choices = "Pick a portfolio..."),
      width = 2),
    mainPanel()),


  server = function(input, output) {

    ui1 <- reactive({

      temp <- c("AAA","1","2","3","ZZZ")
      temp[!grepl("AAA|ZZZ",temp)]

    })

    output$portfolio <- renderUI ({

      selectInput("portfolio", "Underlying Portfolio:", 
                  choices = ui1())

    })

  }
)

要添加到我的 cmets，您不能简单地调用 ui.r 中的函数或对象，您可以在 server.r 中渲染对象并调用这些对象，在 ui.r 中标记为 output$name。 我建议你做闪亮的教程http://shiny.rstudio.com/tutorial/。