R：如何从被动用户输入生成数据帧

编辑：谢谢你们的帮助。这个问题现在已经解决了。必须启用“本地”属性才能在不同环境之间传递数据：

source("compute.R", echo = TRUE,local=T)

我知道以前也有人问过类似的问题，但这些建议对我都不管用。我需要从用户输入创建一个数据框，在创建数据框之后，函数将进一步使用该数据框。代码如下：

        shinyServer(function(input,output,session){

              output$table<-renderTable({ 
                input$goButton
                condoname<-reactive({input$Condo_Name})
                floorno<-reactive({input$Floor_no})
                inputdate<-reactive({input$Date})
                datefilter<-as.Date(inputdate(),"%Y-%m-%d")
   user_data<-data.frame(condoname=condoname(),floorno=floorno(),datefilter=datefilter)
                user_data
    })
    })

---

你能发布一个指向应用程序完整代码（UI+服务器）的链接，或者至少用上面列表中的1-2个输入来缩短示例，这样我们就可以在本地机器上使用它了吗？Hi@JakubP。谢谢你的回复。我已经添加了缩短版…应该可以帮助你理解。感谢删除以

用户\u数据开始的行中的反勾号（一个在开头，一个在结尾）。当我这样做的时候，应用程序运行良好，数据表正确地显示了输入。我使用的代码完全相同。请尝试创建一个可复制的示例。因为它能帮助你和其他人理解你的问题。@UD1989 I+1 Shiva在上面的评论。我认为，一旦我们了解了全部情况，就可以相对容易地帮助你。数据框架是创建的，但是它是在服务器进程内部完成的（并在UI中作为数据表可视化）。如果需要使用外部脚本，请将该外部脚本设置为函数（
someFunc）
UI:
#install.packages("shiny")
library(shiny)


shinyUI(fluidPage(

    fixedRow(
     column(3,selectInput("Condo_Name",
                          label=("Select Condo Name"),
                          choices=as.list(c("Condo1","Condo2")),
                          selected=1)),
     column(3,selectInput("Floor_no",
                          label=("Floor"),
                          choices=as.list(c("1","2")),
                          selected=1)),
     column(3,offset=3,row=-1,dateInput("Date",
                          label=("Date"),
                          value="2006-01-03",
                          max="2015-10-01"

                          )), 
     column(4,offset=3,             
            submitButton("Submit")),
    mainPanel(
             "Table", tableOutput("table"),style = "font-weight: 500; line-height: 1.1; 
        color: #4d3a7d;")



      )
    )
  ))