2017-08-30 3 views
0

Ich bin sehr neu in glänzenden Apps.Wählen Sie eine Eingabe in Shiny App

Sagen wir, ich habe eine Liste ll { "first" -> "eins", "zweite" -> "zwei"}

selectInput('some_var',h4("some content"), 
           choices=ll) 

In meinen Input, ich als Standardwert erhalten möchten " Sekunde ", so dass ich den Index von der Liste holen muss. Also habe ich versucht

test <- which(sapply(ll, FUN=function(X) "two" %in% X)) 

und dann

selectInput('some_var',h4("some content"), 
            choices=ll,selected=names(test)) 

Aber ich bekomme stil den Standardwert in der SelectInput so "erste". Wie kann ich das machen ?

Antwort

0

hallo fand ich die folgende einfache Antwort

selectInput('some_var',h4("some content"), 
            choices=ll,ll[2]) 
Verwandte Themen