From bb9e978674cd919505d0c518aca84aadccf0bbb2 Mon Sep 17 00:00:00 2001 From: Robert Tarnas Date: Sat, 19 Dec 2020 19:11:19 +0100 Subject: [PATCH] TAK-60 --- app/.Rhistory | 512 ------------------------------------------- app/about.R | 16 +- app/routing_module.R | 3 +- 3 files changed, 13 insertions(+), 518 deletions(-) delete mode 100644 app/.Rhistory diff --git a/app/.Rhistory b/app/.Rhistory deleted file mode 100644 index 71d6d15..0000000 --- a/app/.Rhistory +++ /dev/null @@ -1,512 +0,0 @@ -y<-c("Eisenhower (34)", "Kennedy (35)", "Johnson (36)" ,"Nixon (37)" ,"Ford (38)", "Carter (39)","Reagan (40)","Bush (41)","Clinton (42)","Bush (43)","Obama (44)") -presidential %>% -mutate(id = 33 + row_number()) %>% -ggplot(aes(start, id, colour = party)) + -geom_point() + -geom_segment(aes(xend = end, yend = id)) + -scale_colour_manual(values = c(Republican = "red", Democratic = "blue"))+ -labs(x = "", -y = "" -)+ -scale_y_continuous(labels=y,breaks = x)+ -scale_x_date(date_breaks = "4 years",date_labels = "'%y") -#3. -x<-seq(by=1,(34),(44)) -y<-c("Eisenhower (34)", "Kennedy (35)", "Johnson (36)" ,"Nixon (37)" ,"Ford (38)", "Carter (39)","Reagan (40)","Bush (41)","Clinton (42)","Bush (43)","Obama (44)") -presidential %>% -mutate(id = 33 + row_number()) %>% -ggplot(aes(start, id, colour = party)) + -geom_point() + -geom_segment(aes(xend = end, yend = id)) + -scale_colour_manual(values = c(Republican = "red", Democratic = "blue"))+ -labs(x = "", -y = "" -)+ -scale_y_continuous(labels=y,breaks = x)+ -scale_x_date(date_breaks = "4 years",date_labels = "'%y") -#5.3.1 -#1. -label <- tibble( -x=c(-Inf,-Inf,Inf,Inf), -y=c(-Inf, Inf,-Inf,Inf), -label=c("x","x","x","x"), -hjust=c(0,0,1,1), -vjust=c(0,1.0,0,1) -) -ggplot(mpg, aes(displ, hwy)) + -geom_point() + -geom_text(data=label,aes(x=c(-Inf,-Inf,Inf,Inf),y=c(-Inf, Inf,-Inf,Inf),hjust=c(0,0,1,1), -vjust=c(0,1.0,0,1),label=c("x","x","x","x"))) -#3. -#rozne etykiety na kazdym panelu -label <- tibble( -label = c("x","xx","xxx"), -drv = c("4", "f","r") -) -ggplot(data = mpg) + -geom_point(mapping = aes(x = displ, y = hwy)) + -facet_wrap(~ drv, nrow = 2)+ -geom_text(data = label, aes(x = 10, y = 10, label = label)) -#etykieta do pojedynczego panelu -label <- tibble( -label = c("x"), -drv = c("4") -) -ggplot(data = mpg) + -geom_point(mapping = aes(x = displ, y = hwy)) + -facet_wrap(~ drv, nrow = 2)+ -geom_text(data = label, aes(x = 10, y = 10, label = label)) -#3. -#Gdy damy -label <- tibble( -label = "x" -) -ggplot(data = mpg) + -geom_point(mapping = aes(x = displ, y = hwy)) + -facet_wrap(~ drv, nrow = 2)+ -geom_text(data = label, aes(x = 10, y = 10, label = label)) -strzalka=arrow(angle = 10, length = unit(0.5, "inches"), -ends = "last", type = "open") -ggplot(mpg, aes(displ, hwy)) + -geom_point() + -geom_segment(x=0,y=0,arrow=strzalka,xend=5,yend=40) -strzalka=arrow(angle = 80, length = unit(0.1, "inches"), -ends = "both", type = "closed") -ggplot(mpg, aes(displ, hwy)) + -geom_point() + -geom_segment(x=0,y=0,arrow=strzalka,xend=5,yend=40) -strzalka=arrow(angle = 20, length = unit(10, "inches"), -ends = "last", type = "closed") -ggplot(mpg, aes(displ, hwy)) + -geom_point() + -geom_segment(x=0,y=0,arrow=strzalka,xend=5,yend=40) -#3. -x<-seq(by=1,(34),(44)) -y<-c("Eisenhower (34)", "Kennedy (35)", "Johnson (36)" ,"Nixon (37)" ,"Ford (38)", "Carter (39)","Reagan (40)","Bush (41)","Clinton (42)","Bush (43)","Obama (44)") -presidential %>% -mutate(id = 33 + row_number()) %>% -ggplot(aes(start, id, colour = party)) + -geom_point() + -geom_segment(aes(xend = end, yend = id)) + -scale_colour_manual(values = c(Republican = "red", Democratic = "blue"))+ -labs(x = "", -y = "" -)+ -scale_y_continuous(labels=y,breaks = x)+ -scale_x_date(date_breaks = "4 years",date_labels = "'%y") -library(shiny); runApp('Desktop/TPD/8/8.3.6.R') -runApp('Desktop/TPD/8/8.3.6.R') -runApp('Desktop/TPD/8/8.3.6.R') -runApp('Desktop/TPD/8/8.3.6.R') -runApp('Desktop/TPD/8/8.3.6.R') -runApp('Desktop/TPD/8/8.3.6.R') -runApp('Desktop/TPD/8/8.3.6.R') -runApp('Desktop/TPD/8/8.3.6.R') -runApp('Desktop/TPD/8/8.3.6.R') -runApp('Desktop/TPD/8/8.3.6.R') -runApp('Desktop/TPD/8/8.3.6.R') -runApp('Desktop/TPD/8/8.3.6.R') -runApp('Desktop/TPD/8/8.3.6.R') -runApp('Desktop/TPD/8/8.3.6.R') -runApp('Desktop/TPD/8/8.3.6.R') -runApp('Desktop/TPD/8/8.3.6.R') -runApp('Desktop/TPD/8/8.3.6.R') -runApp('Desktop/TPD/8/8.3.6.R') -library(shiny) -runApp('Desktop/TPD/8/8.3.6.R') -runApp('Desktop/TPD/8/8.3.6.R') -runApp('Desktop/TPD/8/8.3.6.R') -runApp('Desktop/TPD/8/8.3.6.R') -runApp('xd') -runApp('xd') -runApp('Desktop/TPD/8/8.3.6.R') -runApp('Desktop/TPD/8/8.3.6.R') -runApp('Desktop/TPD/8/8.3.6.R') -runApp('Desktop/TPD/8/8.3.6.R') -runApp('Desktop/TPD/8/8.3.6.R') -runApp('Desktop/TPD/8/8.3.6.R') -runApp('Desktop/TPD/8/8.3.6.R') -runApp('Desktop/TPD/8/8.3.6.R') -runApp('Desktop/TPD/8/8.3.6.R') -runApp('Desktop/TPD/8/8.3.6.R') -runApp('Desktop/TPD/8/8.3.6.R') -runApp('Desktop/TPD/8/8.3.6.R') -runApp('Desktop/TPD/8/8.3.6.R') -runApp('Desktop/TPD/8/8.3.6.R') -runApp('Desktop/TPD/8/8.3.6.R') -runApp('Desktop/TPD/8/8.3.6.R') -runApp('Desktop/TPD/8/8.3.6.R') -runApp('Desktop/TPD/8/8.3.6.R') -runApp('Desktop/TPD/8/8.3.6.R') -runApp('Desktop/TPD/8/8.3.6.R') -runApp('Desktop/TPD/8/8.3.6.R') -runApp('Desktop/TPD/8/8.3.6.R') -runApp('Desktop/TPD/8/8.3.6.R') -runApp('Desktop/TPD/8/8.3.6.R') -runApp('Desktop/TPD/8/8.3.6.R') -runApp('Desktop/TPD/8/8.3.6.R') -runApp('Desktop/TPD/8/8.4.2.R') -runApp('Desktop/TPD/8/8.4.2.R') -runApp('Desktop/TPD/8/8.4.2.R') -runApp('Desktop/TPD/8/8.4.2.R') -runApp('Desktop/TPD/8/8.4.2.R') -runApp('Desktop/TPD/8/8.4.2.R') -runApp('Desktop/TPD/8/8.4.2.R') -runApp('Desktop/TPD/8/8.4.2.R') -runApp('Desktop/TPD/8/8.4.2.R') -runApp('Desktop/TPD/8/8.4.2.R') -runApp('Desktop/TPD/8/8.4.2.R') -runApp('Desktop/TPD/8/8.4.2.R') -runApp('Desktop/TPD/8/8.4.2.R') -runApp('Desktop/TPD/8/8.4.2.R') -runApp('Desktop/TPD/8/8.4.2.R') -runApp('Desktop/TPD/8/8.3.6.R') -runApp('Desktop/TPD/8/8.4.2.R') -runApp('Desktop/TPD/8/8.4.2.R') -runApp('Desktop/TPD/8/8.4.2.R') -runApp('Desktop/TPD/8/8.4.2.R') -runApp('Desktop/TPD/8/8.4.2.R') -runApp('Desktop/TPD/8/8.4.2.R') -runApp('Desktop/TPD/8/8.4.2.R') -runApp('Desktop/TPD/8/8.4.2.R') -runApp('Desktop/TPD/8/8.4.2.R') -runApp('Desktop/TPD/8/8.4.2.R') -runApp('Desktop/TPD/8/8.4.2.R') -runApp('Desktop/TPD/8/8.4.2.R') -runApp('Desktop/TPD/8/8.4.2.R') -runApp('Desktop/TPD/8/8.4.2.R') -runApp('Desktop/TPD/8/8.4.2.R') -runApp('Desktop/TPD/8/8.4.2.R') -runApp('Desktop/TPD/8/8.4.2.R') -runApp('Desktop/TPD/8/8.4.2.R') -runApp('Desktop/TPD/8/8.4.2.R') -runApp('Desktop/TPD/8/8.4.2.R') -runApp('Desktop/TPD/8/8.4.2.R') -runApp('Desktop/TPD/8/8.4.2.R') -runApp('Desktop/TPD/8/8.4.2.R') -runApp('Desktop/TPD/8/8.5.5.R') -runApp('Desktop/TPD/8/8.4.2.R') -runApp('Desktop/TPD/8/8.4.2.R') -runApp('Desktop/TPD/8/8.4.2.R') -runApp('Desktop/TPD/8/8.5.5.R') -runApp('Desktop/TPD/8/8.5.5.R') -runApp('Desktop/TPD/8/8.5.5.R') -runApp('Desktop/TPD/8/8.5.5.R') -runApp('Desktop/TPD/8/8.5.5.R') -runApp('Desktop/TPD/8/8.5.5.R') -runApp('Desktop/TPD/8/8.5.5.R') -runApp('Desktop/TPD/8/8.5.5.R') -runApp('Desktop/TPD/8/8.5.5.R') -runApp('Desktop/TPD/8/8.4.2.R') -runApp('Desktop/TPD/8/8.5.5.R') -runApp('Desktop/TPD/8/8.5.5.R') -runApp('Desktop/TPD/8/8.5.5.R') -runApp('Desktop/TPD/8/8.5.5.R') -runApp('Desktop/TPD/8/8.5.5.R') -runApp('Desktop/TPD/8/8.5.5.R') -runApp('Desktop/TPD/8/8.5.5.R') -runApp('Desktop/TPD/8/8.5.5.R') -runApp('Desktop/TPD/8/8.5.5.R') -runApp('Desktop/TPD/8/8.4.2.R') -runApp('Desktop/TPD/8/8.4.2.R') -runApp('Desktop/TPD/8/8.3.6.R') -runApp('Desktop/TPD/8/8.4.2.R') -runApp('Desktop/TPD/8/8.5.5.R') -runApp('Desktop/TPD/8/8.10.R') -runApp('Desktop/TPD/8/8.10.R') -runApp('Desktop/TPD/8/8.10.R') -runApp('Desktop/TPD/8/8.10.R') -runApp('Desktop/TPD/8/8.10.R') -runApp('Desktop/TPD/8/8.10.R') -runApp('Desktop/TPD/8/8.10.R') -runApp('Desktop/TPD/8/8.10.R') -runApp('Desktop/TPD/8/8.10.R') -runApp('Desktop/TPD/8/8.10.R') -runApp('Desktop/TPD/8/8.10.R') -runApp('Desktop/TPD/8/8.10.R') -runApp('Desktop/TPD/8/8.10.R') -runApp('~/Desktop/TPD/8/8.10.R') -runApp('~/Desktop/TPD/8/8.10.R') -runApp('~/Desktop/TPD/8/8.10.R') -runApp('~/Desktop/TPD/8/8.10.R') -runApp('~/Desktop/TPD/8/8.10.R') -runApp('~/Desktop/TPD/8/8.3.6.R') -runApp('~/Desktop/TPD/8/8.10.R') -runApp('Desktop/TPD/8/8.10.R') -runApp('Desktop/TPD/8/8.10.R') -runApp('~/Desktop/TPD/8/8.10.R') -runApp('~/Desktop/TPD/8/8.10.R') -runApp('Desktop/TPD/8/8.10.R') -runApp('Desktop/TPD/8/8.10.R') -runApp('Desktop/TPD/8/8.10.R') -runApp('Desktop/TPD/8/8.10.R') -runApp('Desktop/TPD/8/8.10.R') -runApp('Desktop/TPD/8/8.10.R') -input$slider1 -runApp('Desktop/TPD/8/8.10.R') -runApp('Desktop/TPD/8/8.10.R') -runApp('Desktop/TPD/8/8.10.R') -runApp('Desktop/TPD/8/8.10.R') -runApp('Desktop/TPD/8/8.10.R') -?double() -runApp('Desktop/TPD/8/8.10.R') -runApp('Desktop/TPD/8/8.10.R') -runApp('Desktop/TPD/8/8.10.R') -runApp('Desktop/TPD/8/8.10.R') -runApp('Desktop/TPD/8/8.10.R') -runApp('Desktop/TPD/8/8.10.R') -runApp('Desktop/TPD/8/8.10.R') -runApp('Desktop/TPD/8/8.10.R') -runApp('Desktop/TPD/8/8.10.R') -runApp('Desktop/TPD/8/8.10.R') -runApp('Desktop/TPD/8/8.10.R') -runApp('Desktop/TPD/8/8.10.R') -library(ggplot2) -x=seq(by=1,-8,8) -x -x=seq(by=1,-8,8) -runApp('Desktop/TPD/8/8.10.R') -d -x=seq(by=1,-8,8) -y=1/(1+exp(-x)) -x=seq(by=1,-8,8) -y=1/(1+exp(-x)) -d=data.frame(x,y) -View(d) -View(d) -plot(x,y) -runApp('Desktop/TPD/8/8.10.R') -runApp('Desktop/TPD/8/8.10.R') -?geom_abline() -x=seq(by=1,-8,8) -y=1/(1+exp(-x)) -d=data.frame(x,y) -ggplot(data=d,aes(x=x,y=y))+ -geom_line()+ -geom_abline() -labs(x="premises",y="prediction") -ggplot(data=d,aes(x=x,y=y))+ -geom_line()+ -geom_point(aes(x=1,y=2))+ -labs(x="premises",y="prediction") -ggplot(data=d,aes(x=x,y=y))+ -geom_line()+ -geom_point(aes(x=1,y=2),color="red")+ -labs(x="premises",y="prediction") -runApp('Desktop/TPD/8/8.10.R') -runApp('Desktop/TPD/8/8.10.R') -ggplot(data=d,aes(x=x,y=y))+ -geom_line()+ -geom_point(aes(x=z,y=1/(1+exp(-z))),color="red")+ -labs(x="premises",y="prediction")+ -geom_line(aes(x=0,y=0.1),linetype = "dashed") -z=-5.3718+0.0354*as.numeric(input$slider1)+1.6159*as.numeric(input$select1)+1.1768*as.numeric(input$select2)+0.0697*as.numeric(input$slider2)+0.9586*as.numeric(input$select3)-2.9486*as.numeric(input$select4) -x=seq(by=1,-8,8) -y=1/(1+exp(-x)) -d=data.frame(x,y) -ggplot(data=d,aes(x=x,y=y))+ -geom_line()+ -geom_point(aes(x=z,y=1/(1+exp(-z))),color="red")+ -labs(x="premises",y="prediction")+ -geom_line(aes(x=0,y=0.1),linetype = "dashed") -z=-5.3718+0.0354*as.numeric(input$slider1)+1.6159*as.numeric(input$select1)+1.1768*as.numeric(input$select2)+0.0697*as.numeric(input$slider2)+0.9586*as.numeric(input$select3)-2.9486*as.numeric(input$select4) -z=0.019 -x=seq(by=1,-8,8) -y=1/(1+exp(-x)) -d=data.frame(x,y) -ggplot(data=d,aes(x=x,y=y))+ -geom_line()+ -geom_point(aes(x=z,y=1/(1+exp(-z))),color="red")+ -labs(x="premises",y="prediction")+ -geom_line(aes(x=0,y=0.1),linetype = "dashed") -runApp('Desktop/TPD/8/8.10.R') -runApp('Desktop/TPD/8/8.10.R') -runApp('Desktop/TPD/8/8.10.R') -runApp('Desktop/TPD/8/8.10.R') -runApp('Desktop/TPD/8/8.10.R') -runApp('Desktop/TPD/8/8.10.R') -?geom_line() -runApp('Desktop/TPD/8/8.10.R') -runApp('Desktop/TPD/8/8.10.R') -runApp('Desktop/TPD/8/8.10.R') -runApp('Desktop/TPD/8/8.10.R') -runApp('Desktop/TPD/8/8.10.R') -library(shiny); runApp('j:/Desktop/TPD/8/8.10.R') -runApp('j:/Desktop/TPD/8/8.10.R') -runApp('j:/Desktop/TPD/8/8.10.R') -runApp('j:/Desktop/TPD/8/8.10.R') -runApp('j:/Desktop/TPD/8/8.10.R') -runApp('j:/Desktop/TPD/8/8.10.R') -runApp('j:/Desktop/TPD/8/8.10.R') -runApp('j:/Desktop/TPD/8/8.10.R') -runApp('j:/Desktop/TPD/8/8.10.R') -runApp('j:/Desktop/TPD/8/8.10.R') -runApp('j:/Desktop/TPD/8/8.10.R') -runApp('j:/Desktop/TPD/8/8.10.R') -runApp('dddd') -runApp('j:/Desktop/TPD/8/8.10.R') -runApp('j:/Desktop/TPD/8/8.10.R') -runApp('j:/Desktop/TPD/8/8.10.R') -runApp('j:/Desktop/TPD/8/8.10.R') -runApp('j:/Desktop/TPD/8/8.10.R') -runApp('j:/Desktop/TPD/8/8.10.R') -runApp('j:/Desktop/TPD/8/8.10.R') -runApp('j:/Desktop/TPD/8/8.10.R') -runApp('j:/Desktop/TPD/8/8.10.R') -runApp('j:/Desktop/TPD/8/8.10.R') -runApp('j:/Desktop/TPD/8/8.10.R') -runApp('Desktop/TPD/8/8.5.5.R') -runApp('Desktop/TPD/8/8.4.2.R') -runApp('Desktop/TPD/8/8.3.6.R') -runApp('Desktop/TPD/8/8.3.6.R') -runApp('Desktop/TPD/8/8.3.6.R') -runApp('Desktop/TPD/8/8.3.6.R') -runApp('Desktop/TPD/8/8.3.6.R') -runApp('Desktop/TPD/8/8.3.6.R') -library(ggplot2) -library(dplyr) -smaller <- diamonds %>% -filter(carat <= 2.5) -```{r} -# Zadanie 4.4.8.1 -ggplot(data = diamonds) + -geom_line(mapping = aes(x = carat, y = color, color = color)) + -facet_grid(clarity ~ cut ) -bigger <- diamonds %>% -filter(carat > 2.5) -knitr::kable( -bigger[1:20, 1:5], -caption = "20 najwiekszych diamentow i ich cechy." -) -version -shiny::runApp('j:/Desktop/TakeCareApp/app') -install.packages("shiny.router") -runApp('j:/Desktop/TakeCareApp/app') -runApp('j:/Desktop/TakeCareApp/app') -runApp('j:/Desktop/TakeCareApp/app') -runApp('j:/Desktop/TakeCareApp/app') -runApp('j:/Desktop/TakeCareApp/app') -runApp('j:/Desktop/TakeCareApp/app') -library(tidyverse) -#3. -x<-seq(by=1,(34),(44)) -y<-c("Eisenhower (34)", "Kennedy (35)", "Johnson (36)" ,"Nixon (37)" ,"Ford (38)", "Carter (39)","Reagan (40)","Bush (41)","Clinton (42)","Bush (43)","Obama (44)") -presidential %>% -mutate(id = 33 + row_number()) %>% -ggplot(aes(start, id, colour = party)) + -geom_point() + -geom_segment(aes(xend = end, yend = id)) + -scale_colour_manual(values = c(Republican = "red", Democratic = "blue"))+ -labs(x = "", -y = "" -)+ -scale_y_continuous(labels=y,breaks = x)+ -scale_x_date(date_breaks = "4 years",date_labels = "'%y") -#4. -ggplot(diamonds, aes(carat, price)) + -geom_point(aes(colour = cut), alpha = 1/20)+ -theme(legend.position = "bottom") + -guides(colour = guide_legend(nrow = 1, override.aes = list(alpha=1))) -#3. -x<-seq(by=1,(34),(44)) -y<-c("Eisenhower (34)", "Kennedy (35)", "Johnson (36)" ,"Nixon (37)" ,"Ford (38)", "Carter (39)","Reagan (40)","Bush (41)","Clinton (42)","Bush (43)","Obama (44)") -presidential %>% -mutate(id = 33 + row_number()) %>% -ggplot(aes(start, id, colour = party)) + -geom_point() + -geom_segment(aes(xend = end, yend = id)) + -scale_colour_manual(values = c(Republican = "red", Democratic = "blue"))+ -labs(x = "", -y = "" -)+ -scale_y_continuous(labels=y,breaks = x)+ -scale_x_date(date_breaks = "4 years",date_labels = "'%y") -#5.4.4 -#1. -df <- tibble( -x = rnorm(10000), -y = rnorm(10000) -) -ggplot(df, aes(x, y)) + -geom_hex() + -scale_colour_gradient(low = "white", high = "red") + -coord_fixed() -#2. -?scale_x_log10() -#Pierwszy argument w kazdej skali to name. a w labs pierwszym argumentem jest lista nowych par nazwa-wartość. Nazwa powinna być estetyką. -#W skalach mozna ustawic nazwe osi tak jak za pomoca funkcji labs(). Za pomoca labs mozemy zmieniac wiecej etykiet niz za pomoca skal. -#scale_y_continuous(name="xd",labels=y,breaks = x) -#labs(x="xd",y="p") -?labs() -#3. -x<-seq(by=1,(34),(44)) -y<-c("Eisenhower (34)", "Kennedy (35)", "Johnson (36)" ,"Nixon (37)" ,"Ford (38)", "Carter (39)","Reagan (40)","Bush (41)","Clinton (42)","Bush (43)","Obama (44)") -presidential %>% -mutate(id = 33 + row_number()) %>% -ggplot(aes(start, id, colour = party)) + -geom_point() + -geom_segment(aes(xend = end, yend = id)) + -scale_colour_manual(values = c(Republican = "red", Democratic = "blue"))+ -labs(x = "", -y = "" -)+ -scale_y_continuous(labels=y,breaks = x)+ -scale_x_date(date_breaks = "4 years",date_labels = "'%y") -library(shiny); runApp('Desktop/TPD/8/8.10.R') -runApp('Desktop/TPD/8/8.3.6.R') -runApp('Desktop/TPD/8/8.4.2.R') -runApp('Desktop/TPD/8/8.4.2.R') -runApp('Desktop/TPD/8/8.5.5.R') -library(shiny); runApp('j:/Desktop/TakeCareApp/app/calculations.R') -runApp('j:/Desktop/TakeCareApp/app/calculations.R') -runApp('j:/Desktop/TakeCareApp/app/calculations.R') -runApp('j:/Desktop/TakeCareApp/app/calculations.R') -runApp('j:/Desktop/TakeCareApp/app/calculations.R') -runApp('j:/Desktop/TakeCareApp/app/calculations.R') -library(shiny); runApp('j:/Desktop/TakeCareApp/app/authors.R') -runApp('j:/Desktop/TakeCareApp/app/authors.R') -runApp('j:/Desktop/TakeCareApp/app/authors.R') -runApp('j:/Desktop/TakeCareApp/app/authors.R') -runApp('j:/Desktop/TakeCareApp/app/authors.R') -runApp('j:/Desktop/TakeCareApp/app/authors.R') -runApp('j:/Desktop/TakeCareApp/app/authors.R') -runApp('j:/Desktop/TakeCareApp/app/authors.R') -runApp('j:/Desktop/TakeCareApp/app/authors.R') -runApp('j:/Desktop/TakeCareApp/app/authors.R') -runApp('j:/Desktop/TakeCareApp/app/authors.R') -runApp('j:/Desktop/TakeCareApp/app/authors.R') -runApp('j:/Desktop/TakeCareApp/app/authors.R') -runApp('Desktop/TakeCareApp/app/about.R') -runApp('Desktop/TakeCareApp/app/about.R') -runApp('Desktop/TakeCareApp/app/about.R') -runApp('Desktop/TakeCareApp/app/about.R') -runApp('Desktop/TakeCareApp/app/about.R') -runApp('Desktop/TakeCareApp/app/about.R') -runApp('Desktop/TakeCareApp/app/about.R') -runApp('Desktop/TakeCareApp/app/about.R') -runApp('Desktop/TakeCareApp/app/about.R') -runApp('Desktop/TakeCareApp/app/about.R') -runApp('Desktop/TakeCareApp/app/about.R') -runApp('Desktop/TakeCareApp/app/about.R') -runApp('Desktop/TakeCareApp/app/about.R') -runApp('Desktop/TakeCareApp/app/about.R') -runApp('Desktop/TakeCareApp/app/about.R') -runApp('Desktop/TakeCareApp/app/about.R') -runApp('Desktop/TakeCareApp/app/about.R') -runApp('Desktop/TakeCareApp/app/about.R') -runApp('Desktop/TakeCareApp/app/about.R') -runApp('Desktop/TakeCareApp/app/about.R') -runApp('Desktop/TakeCareApp/app/about.R') -runApp('Desktop/TakeCareApp/app/about.R') -runApp('Desktop/TakeCareApp/app/about.R') -library(shiny); runApp('Desktop/TakeCareApp/app/about.R') -runApp('Desktop/TakeCareApp/app/about.R') -runApp('Desktop/TakeCareApp/app/about.R') -runApp('Desktop/TakeCareApp/app/about.R') -runApp('Desktop/TakeCareApp/app/about.R') -runApp('Desktop/TakeCareApp/app/about.R') -runApp('Desktop/TakeCareApp/app/about.R') -runApp('Desktop/TakeCareApp/app/about.R') -runApp('Desktop/TakeCareApp/app/about.R') -runApp('Desktop/TakeCareApp/app/about.R') -runApp('Desktop/TakeCareApp/app/about.R') diff --git a/app/about.R b/app/about.R index 285ea9f..2a79284 100644 --- a/app/about.R +++ b/app/about.R @@ -4,9 +4,13 @@ library(ggplot2) library(plotly) library(DT) -ui <- fluidPage( +aboutUI <- function(id){ + ns <- NS(id) + + + fluidPage( tags$head( - tags$link(rel = "stylesheet", type = "text/css", href = "authors.css") + tags$link(rel = "stylesheet", type = "text/css", href = "style.css") ), mainPanel( p(id="div0","Kim jesteśmy?"), @@ -18,13 +22,15 @@ ui <- fluidPage( p(id="div4","Robert Tarnas"), p(id="dif1"), p(id="div5","Rafał Piskorski"), - p(id="dif2") + p(id="dif2"), + + ) ) +} -server <- function(input, output, session) { +aboutServer <- function(input, output, session) { } -shinyApp(ui = ui, server = server) \ No newline at end of file diff --git a/app/routing_module.R b/app/routing_module.R index 0c71804..4bb88a7 100644 --- a/app/routing_module.R +++ b/app/routing_module.R @@ -6,13 +6,14 @@ library(plotly) library(DT) source("home_module.R",encoding="utf-8") -source("about_module.R",encoding="utf-8") +source("about.R",encoding="utf-8") source("profil_module.R",encoding="utf-8") source("login_module.R",encoding="utf-8") source("register_module.R",encoding="utf-8") + home_page <-homeUI(id="home") about_page <-aboutUI(id="about") profil_page <-profilUI(id="profil")