Question

我尝试制作这样的选择菜单：

Interactively change the selectInput choices

除了一件事之外，一切都很顺利：相反，为了得到价值（像麦当劳），我得到了指数，虽然我没有做任何不同（见下面的图片链接）。哪里可能是我的错？

这是我的global.R：

partners<- read.csv("genes.csv", header=TRUE, fill=TRUE)

server.R

shinyServer(function(input, output) {

#subTable
searchResult<- reactive({
subset(partners, grepl(input$nameSearch, partners$name))
})

output$searchResults <- renderTable({ 
searchResult()[,1]
})


output$selectUI <- renderUI({ 
selectizeInput("partnerName", "Click in and select", choices=searchResult()[,1], multiple=TRUE )
})
})

ui.R

library(shiny)

shinyUI(pageWithSidebar(
# Give the page a title
titlePanel("Tilte"),

sidebarPanel(

textInput("nameSearch", "Search for name", "Blah"),
htmlOutput("selectUI"),
br(),
submitButton("Update View"),
br()

),
# Create a spot for the barplot
mainPanel(
textOutput("text"),
plotOutput("plot")  
)
)
)

Answer 1

我认为你没有得到索引，而是一个因子的整数表示。检查partners[,1]的班级。尝试

output$selectUI <- renderUI({ 
    selectizeInput("partnerName", "Click in and select",
                   choices=as.character(searchResult()[,1]), multiple=TRUE )
})

您也可以在阅读数据时添加stringsAsFactors=FALSE选项。

更改selectizeInput选项 - 菜单中的值错误

1 个答案: