Question

这可能是一个非常简单的问题，但我似乎无法让它发挥作用。在我的ui.R我有一个ID为＆＃34; product＆＃34;的下拉列表，如何在ui.R本身的另一个地方使用所选的产品值。我尝试了input.product，input.product.value等......没有用有帮助吗？提供更多信息：我已尝试以下方法在我的网页上获取超链接：

 server.R
    output$sppath <- renderText({
          link1<-paste("http://server2/projects/", input$product, "/collaboration/forms/collaborative%20documents.aspx?&SortField=Modified&SortDir=Desc",sep="")
   return(link1) })

  ui.R
     fluidRow(h6("Sharepoint:", a("Collaboration", href=textOutput("sppath")))),

使用上面的代码，＆＃34;协作下的链接＆＃34;创建为

http://shiny-server:8787/p/5620/%3Cdiv%20id=%22sppath%22%20class=%22shiny-text-output%22%3E%3C/div%3E

我做错了什么？为什么sppath没有正确解决？当我在a标记之外尝试textOutput时，它会显示完整路径。

Answer 1

语法是输入$ product，而不是input.product，你想要的是什么你的server.r中的renderUI使用input $ product，然后在ui.r中调用uiOutput

Answer 2

我能找到解决方案，现在是：

server.R
output$sppath <- renderUI({
      link1<-  paste("http://server2/projects/",input$product,"/collaboration/forms/collaborative%20documents.aspx?&SortField=Modified&SortDir=Desc",sep="")
 h6("Sharepoint:",tags$a( href=link1,"Collaboration"))
})

ui.R
   fluidRow(htmlOutput("sppath)),

在R shiny中获取ui.R中的另一个UI元素值

2 个答案: