Question

我想提供依赖于上传文件（fileInput）的inputselect“选项”。在下面的示例中，我希望as.list(mydata[1, 1:5])作为inputselect选项的值。稍后，子集化值将是动态的，不会在此处显示。

我尝试了论坛中建议的几种方法（反应，观察，反应值及其组合），但没有取得多大成功。

我的脚本部分运行，但是我需要页面刷新以获取上传的“选项”并重新加载文件。

server.R

shinyServer(function(input, output, session) {

output$contents <- renderDataTable({

    inFile <<- input$SoftRecom
    if (is.null(inFile))
        return(NULL)
    filedatapath <<- reactive({inFile$datapath})
    mydata <<- read.csv(filedatapath(), header = TRUE, sep = ',')
    mydata
})


mychoices <<- reactive({
    mydata
    print(mydata)
    })

output$vg <- renderUI({
    selectInput("vg", label =  p("goal", style = "color:#FFA500"), 
       mychoices()[1,1:5], selected = 1)
})   

output$vp <- renderUI({
    selectInput("procedure", label =  p("procedure", style = "color:#FFA500"), 
                choices = c("proecudures"), selected = 1)

})

output$vm <- renderUI({
    selectInput("procedure", label =  p("procedure", style = "color:#FFA500"), 
                choices = c("ChIP-seq"), selected = 1)

})
})

ui.R

shinyUI(fluidPage(theme = "bootstrap.css",
titlePanel("simple software recommendation sytem"),
sidebarLayout(
    sidebarPanel(
        fileInput('SoftRecom', 'choose dataset'),

        uiOutput("vg"), # variable goal 
        uiOutput("vp"), # variable procedure
        uiOutput("vm")  # variable method


    ),
    mainPanel(
        dataTableOutput('contents')
    )
)
))

我在论坛中看到了许多与我的问题非常接近（甚至匹配）的例子和答案。很抱歉这么钝。如果有人能指出我的问题，我会非常感激。

杰

Answer 1

最终我自己找到了解决方案。不要对我的问题和答案中的不同服务器代码感到困惑。看看

之间的关系

uiOutput（'pipelinestep'）和
输出$ pconst＆lt;＆lt; - renderUI（{selectizeInput（ 'pconst'，'构建软件工作流'，choices = as.character（mysoft [mysoft $ goal == mypipefilter，3]）， multiple = TRUE，options = list（maxItems = 1））}

UI.R

我必须插入：uiOutput（“pipelinestep”）见第8行

shinyUI(fluidPage(theme = "bootstrap.css",
titlePanel( h2("simple software recommendation system", style = "color:#FFA500")),
    sidebarLayout(position = "left",
        sidebarPanel(width =3,
             # chose standard pipeline
             selectInput("selectpipe", "select standard pipeline:", choices = pipechoices),
             # software details
             *uiOutput("pipelinestep")*, # software per pipeline step,
             # construct software workflow based on selected pipeline step 
             uiOutput("pconst")
        ))))

server.R

从第5行到第7行看。“选择”会在检测到更改后立即分配新值。请参阅此处的文档：http://shiny.rstudio.com/articles/dynamic-ui.html

pipelinestepsoftInput <<- reactive({
    mypipefilter <- input$pipelinestep
    softperpipe <<- mysoft[mysoft$goal==mypipefilter ,c(1,3,5:7), drop = FALSE]
    ## provides software choices related to the pipeline step
    output$pconst <<- renderUI({selectizeInput(
        'pconst', 'construct software workflow', choices = as.character(mysoft[mysoft$goal==mypipefilter, 3]),
        multiple = TRUE, options = list(maxItems = 1))})
    ## input for outputDataTable
    softperpipe 
    })

闪亮：在更改inFile

1 个答案: