Skip to content

Commit 8aa0790

Browse files
cknotzcknotz
committed
replaced 'size' w/ 'linewidth' in dashboard
1 parent 6502719 commit 8aa0790

File tree

1 file changed

+14
-14
lines changed
  • inst/stats-dashboard

1 file changed

+14
-14
lines changed

‎inst/stats-dashboard/app.R

+14-14
Original file line numberDiff line numberDiff line change
@@ -29,7 +29,7 @@ theme_darkgray <- function(){
2929

3030
theme(panel.background = element_rect(fill = "#ffffff",color = "#d3d3d3"),
3131
plot.background = element_rect(fill="#ffffff", color = "#343e48"),
32-
panel.grid.major = element_line(color="#38404f", size = .1),
32+
panel.grid.major = element_line(color="#38404f", linewidth = .1),
3333
panel.grid.minor = element_blank(),
3434
axis.text = element_text(colour = "#38404f"),
3535
axis.title = element_text(color = "#38404f"),
@@ -901,7 +901,7 @@ server <- function(input,output,session){
901901
summarize(n = n()) %>%
902902
ggplot(aes(x=pop,y=n)) +
903903
geom_bar(stat = "identity", fill = "#38404f") +
904-
geom_vline(xintercept = mean(vals$cltpop), color = "#faa405", size = 1.25) +
904+
geom_vline(xintercept = mean(vals$cltpop), color = "#faa405", linewidth = 1.25) +
905905
scale_x_continuous(breaks = seq(10,100,10),
906906
limits = c(5,105)) +
907907
labs(x = "''How happy are you?''",
@@ -953,7 +953,7 @@ server <- function(input,output,session){
953953
geom_bar(stat = "count",
954954
width = 1, fill = "#38404f") +
955955
geom_vline(xintercept = mean(sims$means),
956-
color = "#faa405", size = 1.25, linetype = "dashed") +
956+
color = "#faa405", linewidth = 1.25, linetype = "dashed") +
957957
ylab("Number of samples") +
958958
xlab("Sample mean(s)") +
959959
labs(title = "Our measurement(s) of the population mean: dark bar(s)",
@@ -1013,9 +1013,9 @@ server <- function(input,output,session){
10131013
vals$conf.int %>%
10141014
mutate(round = seq(1:n.draw)) %>%
10151015
ggplot(aes(y = round, xmin = V1,xmax = V2)) +
1016-
geom_linerange(color = "#38404f", size = 1) +
1016+
geom_linerange(color = "#38404f", linewidth = 1) +
10171017
geom_vline(xintercept = mu, color = "#faa405",
1018-
size = 1.5) +
1018+
linewidth = 1.5) +
10191019
scale_y_continuous(breaks = integer_breaks()) +
10201020
labs(x = "''How happy are you?''", y = "Study No.",
10211021
caption = "The orange line indicates the TRUE population mean.",
@@ -1050,7 +1050,7 @@ server <- function(input,output,session){
10501050
geom_area(stat = "function", fun = dnorm, args = list(mean = x_bar, sd = x_sd),
10511051
fill = "#faa405", alpha = .5,
10521052
xlim = c(qnorm(1-(alpha/2),mean = x_bar, sd = x_sd),100)) +
1053-
geom_vline(xintercept = x_bar, linetype = "dotted", color = "grey45", size = 1.25) +
1053+
geom_vline(xintercept = x_bar, linetype = "dotted", color = "grey45", linewidth = 1.25) +
10541054
geom_vline(xintercept = 55, linetype = "solid", color = "purple") +
10551055
scale_x_continuous(limits = c(10,100),
10561056
breaks = seq(10,100,10)) +
@@ -1072,7 +1072,7 @@ server <- function(input,output,session){
10721072
geom_area(stat = "function", fun = dnorm, args = list(mean = x_bar, sd = x_sd),
10731073
fill = "#faa405", alpha = .5,
10741074
xlim = c(qnorm(1-(alpha/2),mean = x_bar, sd = x_sd),100)) +
1075-
geom_vline(xintercept = x_bar, linetype = "dotted", color = "grey45", size = 1.25) +
1075+
geom_vline(xintercept = x_bar, linetype = "dotted", color = "grey45", linewidth = 1.25) +
10761076
geom_vline(xintercept = 55, linetype = "solid", color = "purple") +
10771077
geom_errorbarh(aes(xmin = 55-qnorm(alpha/2)*5, xmax = 55+qnorm(alpha/2)*5, y = 0.015),
10781078
color = "purple", linetype = "dashed",height = 0.001) +
@@ -1107,7 +1107,7 @@ server <- function(input,output,session){
11071107
# annotate("text", x=0, y=stats::dnorm(stats::qnorm(as.numeric(input$dist_signselect)/2))+.015,label = paste0(100*(1-as.numeric(input$dist_signselect)),"% of data"),
11081108
# color="grey15", fontface = "bold") +
11091109
geom_vline(xintercept = as.numeric(input$dist_valselect), color = "#38404f", linetype = "dashed",
1110-
size=1.5) +
1110+
linewidth=1.5) +
11111111
labs(x = "", y = "Density",
11121112
title = paste0("Normal distribution critical values for a ",as.numeric(input$dist_signselect)," significance level (two-sided): ",
11131113
round(stats::qnorm(as.numeric(input$dist_signselect)/2), digits = 3)," & ",
@@ -1122,7 +1122,7 @@ server <- function(input,output,session){
11221122
geom_area(stat = "function", fun = stats::dnorm, fill = "#faa405",
11231123
xlim = c(stats::qnorm(1-(as.numeric(input$dist_signselect))),4), color = "#38404f") +
11241124
geom_vline(xintercept = as.numeric(input$dist_valselect), color = "#38404f", linetype = "dashed",
1125-
size=1.5) +
1125+
linewidth=1.5) +
11261126
# annotate("segment", x = -3.99, xend = stats::qnorm(1-as.numeric(input$dist_signselect)),
11271127
# y = stats::dnorm(stats::qnorm(as.numeric(input$dist_signselect)))/2, yend = stats::dnorm(-stats::qnorm(as.numeric(input$dist_signselect)))/2, arrow = arrow(ends='both'),
11281128
# size = 1.5, color = "grey15") +
@@ -1142,7 +1142,7 @@ server <- function(input,output,session){
11421142
geom_area(stat = "function", fun = stats::dnorm, fill = "#38404f",alpha = .5,
11431143
xlim = c(stats::qnorm((as.numeric(input$dist_signselect))),4), color = "#38404f") +
11441144
geom_vline(xintercept = as.numeric(input$dist_valselect), color = "#38404f", linetype = "dashed",
1145-
size=1.5) +
1145+
linewidth=1.5) +
11461146
# annotate("segment", x = 3.99, xend = stats::qnorm(as.numeric(input$dist_signselect)),
11471147
# y = stats::dnorm(stats::qnorm(as.numeric(input$dist_signselect)))/2, yend = stats::dnorm(-stats::qnorm(as.numeric(input$dist_signselect)))/2, arrow = arrow(ends='both'),
11481148
# size = 1.5, color = "grey15") +
@@ -1179,7 +1179,7 @@ server <- function(input,output,session){
11791179
# annotate("text", x=0, y=stats::dt(stats::qt(as.numeric(input$dist_signselect)/2, df=as.numeric(input$dist_dfselect)), df=as.numeric(input$dist_dfselect))+0.015,
11801180
# label = paste0(100*(1-as.numeric(input$dist_signselect)),"% of data"), color="grey15", fontface = "bold") +
11811181
geom_vline(xintercept = as.numeric(input$dist_valselect), color = "#38404f", linetype = "dashed",
1182-
size=1.5) +
1182+
linewidth=1.5) +
11831183
labs(x = "", y = "Density",
11841184
title = paste0("t-distribution critical values for a ",as.numeric(input$dist_signselect)," significance level (two-sided; df = ",as.numeric(input$dist_dfselect),"): ",
11851185
round(stats::qt(as.numeric(input$dist_signselect)/2, df=as.numeric(input$dist_dfselect)), digits = 3)," & ",
@@ -1204,7 +1204,7 @@ server <- function(input,output,session){
12041204
# y=stats::dt(stats::qt(as.numeric(input$dist_signselect), df=as.numeric(input$dist_dfselect)), df=as.numeric(input$dist_dfselect))+0.015,
12051205
# label = paste0(100*(1-as.numeric(input$dist_signselect)),"% of data"), color="grey15", fontface = "bold") +
12061206
geom_vline(xintercept = as.numeric(input$dist_valselect), color = "#38404f", linetype = "dashed",
1207-
size=1.5) +
1207+
linewidth=1.5) +
12081208
labs(x = "", y = "Density",
12091209
title = paste0("t-distribution critical value for a ",as.numeric(input$dist_signselect)," significance level (larger than; df = ",as.numeric(input$dist_dfselect),"): ",
12101210
round(stats::qt(1-as.numeric(input$dist_signselect), df=as.numeric(input$dist_dfselect)), digits = 3))) +
@@ -1228,7 +1228,7 @@ server <- function(input,output,session){
12281228
# y=stats::dt(stats::qt(as.numeric(input$dist_signselect), df=as.numeric(input$dist_dfselect)), df=as.numeric(input$dist_dfselect))+0.015,
12291229
# label = paste0(100*(1-as.numeric(input$dist_signselect)),"% of data"), color="grey15", fontface = "bold") +
12301230
geom_vline(xintercept = as.numeric(input$dist_valselect), color = "#38404f", linetype = "dashed",
1231-
size=1.5) +
1231+
linewidth=1.5) +
12321232
labs(x = "", y = "Density",
12331233
title = paste0("t-distribution critical value for a ",as.numeric(input$dist_signselect)," significance level (smaller than; df = ",as.numeric(input$dist_dfselect),"): ",
12341234
round(stats::qt(as.numeric(input$dist_signselect), df=as.numeric(input$dist_dfselect)), digits = 3))) +
@@ -1249,7 +1249,7 @@ server <- function(input,output,session){
12491249
stats::qchisq(1-as.numeric(input$dist_signselect), df=as.numeric(input$dist_dfselect))+.5*stats::qchisq(1-as.numeric(input$dist_signselect), df=as.numeric(input$dist_dfselect))),
12501250
args = list(df=as.numeric(input$dist_dfselect))) +
12511251
geom_vline(xintercept = as.numeric(input$dist_valselect), color = "#38404f", linetype = "dashed",
1252-
size=1.5) +
1252+
linewidth=1.5) +
12531253
# annotate("segment", arrow = arrow(ends = "both"), size = 1.5, color = "grey15",
12541254
# x = 0, xend = stats::qchisq(1-as.numeric(input$dist_signselect), df=as.numeric(input$dist_dfselect)),
12551255
# y = stats::dchisq(stats::qchisq(1-as.numeric(input$dist_signselect), df=as.numeric(input$dist_dfselect)), df = as.numeric(input$dist_dfselect)),

0 commit comments

Comments
 (0)