irJ*_*JvV 4 javascript r d3.js angularjs shiny
我正在创建一个仪表板,R和D3运行库(闪亮).
这非常好用,现在我想将D3代码转换为模块化对象,这将为我节省大量编码并使其可供其他人使用.我的想法是达到这个目的:
<r-d3-gauge id="G1" data="[1,2,3]"></r-d3-gauge>
<r-d3-gauge id="G2" data="[4,5,6]"></r-d3-gauge>
我有两个可以用CSS定位的仪表,或者只是用HTML(....)注入它们.好吧,使用AngularJS应该很简单.
但我无法让AngularJS在R闪亮中工作.我制作了这个测试代码:(带有d3.js的www文件夹和server.r/ui.r旁边的angular.min.1.4.3.js)
ui.r
library(shiny)
shinyUI(fluidPage(
tags$head(tags$script(src = "d3.js"))
,tags$head(tags$script(src = "angular.min.1.4.3.js"))
,htmlOutput("JS")
,htmlOutput("HTML")
))
server.r
library(shiny)
shinyServer(function(input, output) {
# HTML
output$HTML <- renderUI({
html <- ''
html <- paste0(html,'
<p>Input something in the input box:</p>
<h4>Name: <input type="text" ng-model="name"></h4>
<h4 ng-bind="name"></h4>
<h4>Name: <input type="text" ng-model="name2"></h4>
<h4>You wrote: {{name2}}</h4>
')
HTML(html)
})
# JS
output$JS <- renderUI({
html <- "<script language='JavaScript'>"
html <- paste0(html,'
if(typeof angular == "undefined") {
console.log("angular == undefined");
} else {
console.log("angular == defined");
console.log(angular.version.full)
}
if (window.jQuery) {
console.log("jQuery == defined");
console.log(jQuery.fn.jquery);
} else {
console.log("jQuery == undefined");
}
d3.select("body")
.attr("ng-app","")
$(document).ready(function(){
$("p").click(function(){
$(this).hide();
});
});
</script>')
HTML(html)
})
})
这创建了一个闪亮的应用程序与HTML代码很好,测试显示
angular == defined
1.4.3
jQuery == defined
2.1.4
那没问题.jQuery工作正常(你可以点击"在输入框中输入内容:"并且它是隐藏的)但如果我输入文本它不会显示.如果我尝试类似的东西:
<p>Name: <input type="text" ng-model="name2"></p>
<p>You wrote: {{ name2 }}</p>
它会显示:{{name2}}而没有对{{name2}}部分进行子集化.
好的,这有效:
ui.r
library(shiny)
shinyUI(bootstrapPage(includeHTML("static.html")))
server.r
library(shiny)
shinyServer(function(input, output) {})
static.html
<!DOCTYPE HTML>
<html>
<head>
<script src="http://d3js.org/d3.v3.min.js"></script>
<script src="https://ajax.googleapis.com/ajax/libs/angularjs/1.4.0/angular.js"></script>
</head>
<body>
<script language='JavaScript'>
if(typeof angular == "undefined") {
console.log("angular == undefined");
} else {
console.log("angular == defined");
console.log(angular.version.full)
}
if (window.jQuery) {
console.log("jQuery == defined");
console.log(jQuery.fn.jquery);
} else {
console.log("jQuery == undefined");
}
d3.select("body").attr("ng-app","")
</script>
<p>Input something in the input box:</p>
<p>Name: <input type="text" ng-model="name"></p>
<p ng-bind="name"></p>
<h4>Name: <input type="text" ng-model="name2"></h4>
<h4>You wrote: {{name2}}</h4>
</body>
</html>
瞧瞧,跑起来!:^)
| 归档时间： |
|
| 查看次数： |
5463 次 |
| 最近记录： |