我想知道如何在我的 Shiny 应用程序的背景中实现粒子动画,如https://vincentgarreau.com/particles.js/中提供的
到目前为止,以下是我的闪亮代码。
用户界面
library(shiny)
fluidPage(
tagList(tags$head(includeCSS("CSS.css"), includeScript("particles.js"), includeScript("JS.js"))),
### particle.js is obtained from https://github.com/VincentGarreau/particles.js/
div(div(id = 'particles-js'), selectInput("Dummy", "Some Dummy number:",c(1,2,3)))
)
服务器.R
server <- function(input, output) {
}
CSS.css
#particles-js {
width: 100%;
height: 100%;
background: rgba(0,53,107, 0.3);
}
JS.js
particlesJS("particles-js", {
particles: {
number: {
value: 80,
density: {
enable: true,
value_area: 700
}
},
color: {
value: "#000"
},
shape: {
type: "circle",
stroke: {
width: 0,
color: "#000000"
},
polygon: {
nb_sides: 5
}
},
opacity: {
value: 0.5,
random: false,
anim: {
enable: false,
speed: 1,
opacity_min: 0.1,
sync: false
}
},
size: {
value: 3,
random: true,
anim: {
enable: false,
speed: 40,
size_min: 0.1,
sync: false
}
},
line_linked: {
enable: true,
distance: 150,
color: "#000",
opacity: 0.4,
width: 1
},
move: {
enable: true,
speed: 6,
direction: "none",
random: false,
straight: false,
out_mode: "out",
bounce: false,
attract: {
enable: false,
rotateX: 600,
rotateY: 1200
}
}
},
interactivity: {
detect_on: "canvas",
events: {
onhover: {
enable: true,
mode: "grab"
},
onclick: {
enable: true,
mode: "push"
},
resize: true
},
modes: {
grab: {
distance: 140,
line_linked: {
opacity: 1
}
},
bubble: {
distance: 400,
size: 40,
duration: 2,
opacity: 8,
speed: 3
},
repulse: {
distance: 200,
duration: 0.4
},
push: {
particles_nb: 4
},
remove: {
particles_nb: 2
}
}
},
retina_detect: true
});
显然,上面的代码无法将粒子动画合并到我的 Shiny 应用程序的背景中。
任何指向正确方向的指针都将受到高度赞赏。
谢谢,