-
Notifications
You must be signed in to change notification settings - Fork 12
/
Copy path.Rhistory
86 lines (86 loc) · 2.21 KB
/
.Rhistory
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
library(shiny)
runApp()
runApp()
runApp()
rm(list=ls())
library(shiny)
setwd("C:/Users/bclamber/Desktop/distribution-viewer")
runApp("App-1",display.mode = "showcase")
runApp("App-1",launch.browser = T)
runApp("App-1",launch.browser = T, display.mode = T)
runApp("App-1",launch.browser = T)
?runApp
runApp("App-1",display.mode = T)
runApp("App-1",display.mode = T)
runApp("App-1",launch.browser = T, display.mode = "showcase")
runApp("App-1",display.mode = "showcase")
library(markdown)
runApp("App-1",display.mode = "showcase")
library(shiny)
runApp("App-1",display.mode = "showcase")
withMathJax()
runApp("App-1")
library(gridExtra)
runApp("App-1")
rm(list=ls())
library(shiny)
setwd("C:/Users/bclamber/Desktop/distribution-viewer")
runApp("App-1")
runApp("App-1")
runApp("App-1")
library(VGAM)
rm(list=ls())
library(shiny)
setwd("C:/Users/bclamber/Desktop/distribution-viewer")
setwd("~/Desktop/distribution-viewer")
runApp("App-1", launch.browser = T)
runApp("App-1", launch.browser = T)
library(devtools)
install_github("statistikat/codeModules")
library(codeModules)
library(DF)
library(DT)
library(devtools)
install_github("statistikat/codeModules")
install.packages('DT', dependencies = T)
library(devtools)
library(devtools)
install_github("statistikat/codeModules")
library(codeModules)
ibrary(shiny)
runApp(list(
ui = bootstrapPage(
sliderInput("mu", "Mean", min=-30, max=30, value=0, step=0.2),
uiOutput('chunk')
),
server = function(input, output) {
output$chunk <- renderUI({
HTML(markdown::markdownToHTML(text=paste0("```{python}",
"\n numpy.random.normal(input$mu, 2)"),
options=c("highlight_code"))) })
}
))
runApp(list(
ui = bootstrapPage(
sliderInput("mu", "Mean", min=-30, max=30, value=0, step=0.2),
uiOutput('chunk')
),
server = function(input, output) {
output$chunk <- renderUI({
HTML(markdown::markdownToHTML(text=paste0("```{python}",
"\n numpy.random.normal(", input$mu, "2)"),
options=c("highlight_code"))) })
}
))
runApp(list(
ui = bootstrapPage(
sliderInput("mu", "Mean", min=-30, max=30, value=0, step=0.2),
uiOutput('chunk')
),
server = function(input, output) {
output$chunk <- renderUI({
HTML(markdown::markdownToHTML(text=paste0("```{python}",
"\n numpy.random.normal(", input$mu, ", 2)"),
options=c("highlight_code"))) })
}
))