在我的RStudio Shiny中,我在server.R中使用了selectInput,在ui.R中使用tags语句来改变选择框的宽度和高度。页面加载时可以正常工作,但当我转到单选类型时会恢复默认大小。有什么解决方法吗?
在ui.R中:
在ui.R中:
# [...]
,div(class="span6"
,radioButtons("viz_multiple", "Select Type:",
c("Select From List (can use Up/Down + Enter)" = "multiple",
"Search One (Delete then type keyword)" = "single")
)
)
)
,div(class='row-fluid'
,div(class='span12', uiOutput("image_list"))
,tags$head(tags$style(type="text/css", "select#iimage_list { width: 1000px; height: 40px; }"))
)
# [...]
On server.R
# [...]
output$image_list <- renderUI({
imagelist = image_ls()
iimage_list <- as.vector(sort(unique(as.character(imagelist)),decreasing=TRUE))
length_list = length(iimage_list)
selectInput("iimage_list",paste0("samples (",length_list,")"),choices=iimage_list, selectize = input$viz_multiple == 'single')
})
# [...]
您有没有任何想法如何在用户从 multiple
切换到 single
时也应用 tags
命令?
ui.R
中删除相应的tags
语句,并只使用你答案中的新版本,行为也是一样的... - 719016input$viz_multiple
选项时,它会返回到默认大小... - 719016