R闪亮的嵌套uiOutput错误：输入=> uiOutput => uiOutput =>输出答案

【问题标题】：R Shiny nested uiOutput error: input => uiOutput => uiOutput => outputR闪亮的嵌套uiOutput错误：输入=> uiOutput => uiOutput =>输出
【发布时间】：2013-03-06 00:45:47
【问题描述】：

我在设计嵌套输入/输出应用时遇到问题。（我也试过把这个问题发到shiny-discuss，但是发的时候会被自动删除，为什么？）

我的应用可以简化为以下步骤：

按文本区域输入数据集。即：input$textarea.in
加载数据集并显示导入数据集的名称列表。用户可以通过 selectInput 选择数据。即：uiOutput("choosedata")
计算所选数据的范围，然后显示滑块输入。即：uiOutput("range")
最后，计算 sliderInput 选择的值的平方。即：verbatimTextOutput("range.out")

即：

input => uiOutput => uiOutput => output
          (work!)     (work!)    (error!)

更改导入的数据集后，第 4 步将发生错误。更具体地说，初始输入格式为：

Data.A 1 2 3 4 5
Data.B 6 7 8 9 10 11

另一种输入格式是：

Data.C 1 3 5 7
Data.D 2 4 6 8

第 2 步和第 3 步会自动更改，但第 4 步不会。如何解决？

最好的

注意在线应用和代码如下：

http://glimmer.rstudio.com/tchsieh/myapp/

#=========================
#ui.R
#=========================
library(shiny)
shinyUI(pageWithSidebar(  
  headerPanel("Title"),
  sidebarPanel(
    p("Text Area:"),
    tags$textarea(id="textarea.in", rows=3, "Data.A 1 2 3 4 5 \nData.B 6 7 8 9 10 11"),
    uiOutput("choosedata"),
    uiOutput("range")
  ),

  mainPanel(    
    h2("Test"),

    h3("Raw Data (step1: work!)"),
    verbatimTextOutput("textarea.out"),

    h3("Range of the selected data (step2: work!)"),
    verbatimTextOutput("summary"),

    h3("Squared of the selected value (step3:error when change Text area)"),
    verbatimTextOutput("range.out")


  )
))

#=========================
#server.R
#=========================
library(shiny)
shinyServer(function(input, output) {
  loadPaste <- reactive({
    text <- input$textarea.in
    temp <- lapply(readLines(textConnection(text)), function(x) scan(text = x, what='char'))
    out <- list()
    out.name <- 0
    for(i in seq_along(temp)){
      out.name[i] <- temp[[i]][1]
      out[[i]] <- as.numeric(temp[[i]][-1])
    }
    names(out) <- t(data.frame(out.name))
    out
  })

  output$textarea.out <- renderPrint({
    loadPaste()
  })

  output$choosedata <- renderUI({
    dataname <- names(loadPaste())  
    dataList <- list()
    for(i in seq_along(dataname)){
      dataList[[i]] <- dataname[i]
    }
    selectInput("dataset", "Select dataset:", choices  = dataList, selected = dataList[1])
  })

  output$summary <- renderPrint({
    out <- loadPaste()
    id <- which(names(out) == input$dataset)
    mydata <- out[[id]]
    range(mydata)

  })

  output$range <- renderUI({
    out <- loadPaste()
    id <- which(names(out) == input$dataset)
    mydata <- out[[id]]
    sliderInput("range.in", "Selecte a value in the range of data", min=min(mydata), value=mean(mydata), max=max(mydata), step=diff(range(mydata))/10)
  })

  output$range.out <- renderPrint({
    (input$range.in)^2
  })

})

【问题讨论】：

问题已经通过在 output$choosedata 和 output$range 中使用 "tryCatch()" 解决了。
您应该将其添加为答案，以便人们更容易找到它。

标签： r shiny

【解决方案1】：

这是 Shiny 中的一个错误，已在 this commit 中修复。感谢您的报告！

（您多次尝试在闪亮的讨论中发帖都被 Google 网上论坛归类为垃圾邮件。我已清除垃圾邮件并回复了您最近的帖子，并将您标记为安全发件人，因此希望这种情况不会再发生。不便之处敬请见谅！）

【讨论】：