Question

下面是一个玩具闪亮的应用程序，可以正常工作。您可以看到fluidPage 所有部分都是完全“表格化”的称为向量或列表中的元素。我想这样做服务器部分，但无法弄清楚如何。更具体地说，我还无法弄清楚如何将向量合并到renderText的输入和输出部分中。有人可以告诉我吗？

希望这样做的原因是，在实际应用中，我希望指定外部文件中所有单选按钮的内容。一世将不知道文件的内容，甚至不知道多少个单选按钮会在运行时间之前出现。

    rm(list=ls())
    library(shiny)
    cn <- list(list("red", "blue"),list("green","yellow"))
    cv <- list(list("r","b"),list("g","y"))
    cl <- c("Choose one","choose another")
    rid <- c("rb","rb2")
    to <- c("txt","txt2")
    msg <- c("you chose","and chose")
    ui <- fluidPage(
      radioButtons(rid[1], label=cl[1],
                   choiceNames = cn[[1]],
                   choiceValues = cv[[1]]),
      radioButtons(rid[2], label=cl[2],
                   choiceNames = cn[[2]],
                   choiceValues = cv[[2]]),
      textOutput(to[1]),
      textOutput(to[2])
    )
    server <- function(input, output) {
      output$txt <- renderText({paste(msg[1], input$rb)})
      output$txt2 <- renderText({paste(msg[2], input$rb2)})
    }
    shinyApp(ui, server)

i

带有renderText的闪亮输入和输出向量

0 个答案: