TAK-60

app/.Rhistory

@@ -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')

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)

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")