1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
library("shiny")
library("threejs")
shinyUI(fluidPage(
titlePanel("Shiny three.js scatterplot example"),
sidebarLayout(
sidebarPanel(
numericInput("nticks", "Number of ticks", 6, min = 0, max = 10, step = 1),
numericInput("colors", "Number of colors", 5, min = 1, max = 8, step = 1),
numericInput("sizes", "Number of sizes", 2, min = 1, max = 3, step = 1),
checkboxInput("grid", label = "Grid", value = TRUE),
p("Use the mouse zoom to rotate, zoom, and pan.")
),
mainPanel(
scatterplotThreeOutput("scatterplot")
)
)
))
|
