R shiny: как указать selectInput в html?

Мне нужно указать некоторый selectInput() в html (чтобы вставить их в фрейм данных).

Здесь воспроизводимый код не дает мне selectInput. Что в HTML() является копией-вставкой из html-кода selectInput(), который я получил с помощью "Inspect element" (и, вероятно, поэтому он не работает, но я не могу исправить его, к сожалению)

shiny::runApp(
list(
ui = pageWithSidebar(

headerPanel("TEST"),

sidebarPanel(
helpText('This does not work:')
),

mainPanel( 
HTML("<label for="variable">Variable:</label>
 
<div><div><div data-value="toz">Cyl</div></div><div><div><div data-value="toz" data-selectable="">Cyl</div><div data-value="toztoz" data-selectable="">Trans</div><div data-value="ge" data-selectable="">Gea</div></div></div></div>
") 

)
)
, 

server = function(input,output){ 
}
)
)

Заранее благодарю Cheers

1 ответ

Ознакомиться с исходным кодом очень полезно, чтобы увидеть, как он построен, однако я не рекомендую вам копировать весь раздел кода для повторного использования его как есть. Используйте блестящие функции.

Но если вы хотите создать свой входной код с синтаксисом HTML, вы можете просто использовать тег select HTML:

mainPanel( 
 HTML("<select id="select">
 <option value="cyl">Cyl</option>
 <option value="trans">Trans</option>
 <option value="gea">Gea</option>
 </select>")
)

Btw, в коде, который вы скопировали: style='display: none;' скрыть элемент (но в любом случае этот код не может работать как есть).

licensed under cc by-sa 3.0 with attribution.