如何在R中将选定对象的详细信息从一个选择发送到另一个选择

我需要帮助建立一个基于用户选择的动态用户界面。 我有一个由R服务器脚本读取的制表符分隔的文件，该文件包含5列数据（作业类型、作业顺序、任务编号、活动编号、活动类型） 下面是数据表的外观 已完成的JOU 1 JOU 1 TNU 1 JOU 1 TNU 1图纸 已完成的JOU 1 JOU 1 TNU 2 JOU 1 TNU 2 ANU 1图纸 已完成的JOU 1 JOU 1 TNU 3 JOU 1 TNU 3 ANU 2切割 已完成的JOU 1 JOU 1 TNU 4 JOU 1 TNU 4 ANU 1图纸 当前JOU 2 JOU 2 TNU 1 JOU 2 TNU 1图纸 当前JOU 2 JOU 2 TNU 2 JOU 2 TNU 2 ANU 2切割 当前JOU 3 JOU 3 TNU 1 JOU 3 TNU 1 ANU 3绘画

以下是我目前面临的挑战： 为用户提供了一个选择作业类型的界面（下拉菜单），根据用户选择的作业类型，填写作业顺序下拉菜单，现在我想根据用户选择的作业顺序填写下一个选择任务编号的下拉菜单，在类似的行中，我希望根据用户选择的任务编号向用户提供活动编号选择。 例如：假设用户从第一个下拉菜单中选择“当前”（作业类型）。 第二个下拉菜单应仅列出JO_2和JO_3作为选项进行选择；现在让我们假设用户选择“JO_2和JO_3” 第三个下拉菜单应仅列出JO_2_tnu 1、JO_2_tnu 2、JO_3_tnu 1任务编号供选择，假设用户选择“JO_2_tnu 1、JO_3_tnu 1” 第四个下拉菜单应该只有JO_3_TN_1_和_3作为选项

这是我的密码 shinyServer（功能（输入、输出）{

---

))

我想我解决了这个难题。要在新的选定对象中调用一个选定对象的选择值，我发现我在前一个选择对象的LabelID前面加上了输入$，它就工作了。

data1 <- data.frame(read.table("Data.txt", sep="\t", header=TRUE))
                            # reactiveValues(current_col = 0)   
output$mytext <- renderText({
    result <- input$var

                                }
                                else
                                {
                                    sub_data <- subset(data1, data1[,1] %in% "Completed", select=c("Job_Order"))
                                    selectInput("JobOrder", "Select Job Order", sub_data[,1], multiple=TRUE)
                                }

                            })


output$choose_Job_Order <- renderUI({
                                    sub_data2 <- subset(data1, data1[,2] %in% output$JobOrder, select=c("Task_Number"))
                                    selectInput("TaskNumber", "Select Task Number", sub_data2[,2], multiple=TRUE)                                   
                                })  
}     

selectInput("var", 
  label = (strong("Choose Job Types", style="color:black")),
  choices = c("SelectJobType","Current","Completed"),
  selected = "SelectJobType"),
     uiOutput("choose_Job_Types"),
     uiOutput("choose_Job_Order"),
       br()
),

mainPanel(  
        tabsetPanel(
        tabPanel("Introduction", (h1("Current Status Overview Of Jobs in Pipeline")),
        textOutput("mytext"),


                plotOutput("graph_report")

        ),
        tabPanel("TablularView", (h1("Tabular View of Selected Job Orders")), tableOutput("DataTable"))
    )
)