Question

我的第一个Shiny App工作 - 至少差不多。代码工作查找并以简化形式看起来像

shinyUI(fluidPage(
  titlePanel('Tableau Workbook'),
  sidebarPanel(
  uiOutput("select")
  ),
 mainPanel(
 tableOutput("Columns1"))
 ))

shinyServer(function(input,output){
  output$select <- renderUI({
    selectInput("dataset", "Names", as.list(files))
 })

output$columns1 <- renderTable({
  f<- myfunction(input$dataset)
  f[[3]]
})
})

我需要修改“dataset”才能在renderTable（）中使用它。我试过了

output$columns1 <- renderTable({
dataset<- lookuptable[which(dataset== lookuptable$table1),2 ]  
f<- myfunction(input$dataset)
  f[[3]]
})

SelectInput显示一个选项，用户可以从中选择。 extraline正在做什么：获取所选项目，在查找表中查找匹配值。然后将该值输入函数。查阅表是一个包含两列和n行的数据帧。但是，当我添加extraline时，可视化被破坏了。谁知道为什么？万分感谢您的帮助！

Rshiny：转换交互式InputSelect（）的选择

0 个答案: