Inline the JavaScript in your UI code, as literal text; Create a .js file under ... ui <- fluidPage( tags$script(HTML( "document.body.style.
確定! 回上一頁