在R Shining中，如何粘贴用户'；是否将用户界面中选定的输入输入到服务器中的反应对象中？

超级新的闪亮，有一个问题，似乎它应该是基本的反应式编程，但我还没有找到一个解决方案，迄今为止的工作

本质上，我希望从UI中获取用户选择的输入，并将其粘贴到服务器中的一个简单对象中，当选择新输入时，该对象将做出反应/更新

该对象将被连接到一个完整的API调用中，我希望在服务器中重新运行API调用，每次为其选择新输入时，都会更新反应对象（注意：如果没有作为公司帐户一部分的访问代码，API将无法运行，因此，对于我在发布完整代码时犹豫不决表示歉意，但我只需要这一功能方面的帮助。）

代码如下：

在selectInput中将Dollar General作为默认选择，我希望对象query成为字符串“Dollar%20general”，并在选择沃尔玛时反应性地更改为“walmart”

谢谢

ui <- fluidPage

 sidebarLayout(
    sidebarPanel(

     selectInput("company", "Choose company:",
                  c("Dollar General" = "dollar%20general",
                    "Dollar Tree" = "dollar%20tree",
                    "Walmart" = "walmart"))

...

server <- function(input,output)  {
...

query <- paste(input$company)  
...

---

ui您可以使用
reactiveValues（）
和
观察
。这应该可以：

library(shiny)

# Define UI for application 
ui <- fluidPage(

    # your input
    sidebarLayout(
        sidebarPanel(
            selectInput("company", "Choose company:",
                        c("Dollar General" = "dollar%20general",
                          "Dollar Tree" = "dollar%20tree",
                          "Walmart" = "walmart"))
        ),

        # Determine Output
        mainPanel(
            textOutput("showInput") # you need to render this in your server file
        )
    )
)

server <- function(input, output) {

    # Show what was selected

    query <- reactiveValues()

    observe(
        query$test <- paste(input$company, "and test", sep = " ")
        )

    output$showInput <- renderText({ #based on what you defined in the ui
        query$test
    })
}

# Run the application 
shinyApp(ui = ui, server = server)

库（闪亮）
#为应用程序定义用户界面
ui创建两个名为
ui.R
和
server.R
的文件，将ui逻辑存储在
ui.R
中，将后端/对象逻辑存储在
server.R
中

用户界面文件
如果问题解决了，请投票并接受答案。
# UI of app
ui <- fluidPage(

  # input
    sidebarLayout(
        sidebarPanel(
            selectInput("company", "Choose company:",
                        c("Dollar General" = "dollar%20general",
                          "Dollar Tree" = "dollar%20tree",
                          "Walmart" = "walmart"))
        ),

        # Output
        mainPanel(
           textOutput("Input") 
        )
    )
)

server <- function(input, output) {

    # Show what was selected

    output$Input <- renderText({ #based on what you defined in the ui
        input$company
    })
}

~/newdir
|-- ui.R
|-- server.R

runApp("newdir")