![](/img/trans.png)
[英]twitter bootstrap popovers for R shiny app - html is interpreted as text content - why?
[英]Why is text appearing in my shiny app when using html tags and bootstrap
以下是我的錯誤的最小示例:
library(shiny)
run_with_enter <- '
$(function() {
var $els = $("[data-proxy-click]");
$.each(
$els,
function(idx, el) {
var $el = $(el);
var $proxy = $("#" + $el.data("proxyClick"));
$el.keydown(function (e) {
if (e.keyCode == 13) {
$proxy.click();
}
});
}
);
});
'
ui1 <- function(){
tagList(
div(id = "login",
fluidPage(
textInput("uid", "Username"),
tagAppendAttributes(
passwordInput("pwd", "Password"),
`data-proxy-click` = "Login"
),
br(),
actionButton("Login", "Log in", class = "btn-success"),
htmlOutput("login_attempt")
)),
tags$style(type="text/css", "#login {font-size:10px; text-align: left;position:absolute;top: 40%;left: 50%;margin-top: -100px;margin-left: -150px;}")
)}
ui = (htmlOutput("page"))
server <- function(input, output, session) {
observeEvent(input$Login, {
cat("Login attempted \n")
})
output$page <- renderUI({
div(class="outer",do.call(bootstrapPage,c(tags$br(tags$script(HTML(run_with_enter))),ui1())))
})
}
shinyApp(ui, server)
運行該應用程序時,在左上角會顯示文本“ br”,但其他所有功能似乎都可以正常運行。 我將問題隔離到代碼段中: tags$br(tags$script(HTML(run_with_enter))
但我不確定如何解決此問題。 我可以將“ br”標記更改為任何有效的HTML標記(例如“ head”),並將左上角的文本替換為新標記。
而不是
c(tags$br(tags$script(HTML(run_with_enter))), ui1())
你應該有
list(tags$br(tags$script(HTML(run_with_enter))), ui1())
c()
函數從對象中剝離屬性,在這種情況下,這不是您想要的。 比較tags$br()
和c(tags$br())
聲明:本站的技術帖子網頁,遵循CC BY-SA 4.0協議,如果您需要轉載,請注明本站網址或者原文地址。任何問題請咨詢:yoyou2525@163.com.