dodano zdjecia

app/.Rhistory

@@ -0,0 +1,512 @@
+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

@@ -14,12 +14,12 @@ ui <- fluidPage(
       p(id="div1","Jesteśmy młodym i dynamicznym zespołem, który dopiero co wkracza na rynek komercyjnych aplikacji.  Tworząc aplikację TakeCareApp przyświecał nam cel poszerzenie dostępności diagnozy medycznej i umożliwienie szybkiego i wygodnego odczytania wyników. "),
       p(id="div2","Nasza ekipa składa się z trzech członków i są to:"),
       p(id="div3","Jan Przybylski"),
-      #p(id="dif"),
+      p(id="dif"),
       p(id="div4","Robert Tarnas"),
-      #p(id="dif1"),
+      p(id="dif1"),
       p(id="div5","Rafał Piskorski"),
-      #p(id="dif2")
+      p(id="dif2")
-      #Dodac zdjecia
+
     )
 )
 

app/www/authors.css

@@ -150,7 +150,7 @@ height: 70px;
 left: 85px;
 top: calc(50% - 70px/2 + 4px);
 
-background: url(jp.jpg);
+background: url(jp.png);
 }
 
 #dif1{
@@ -160,7 +160,7 @@ height: 70px;
 left: 244px;
 top: calc(50% - 70px/2 + 4px);
 
-background: url(robert.jpg);
+background: url(robert.png);
 }
 #dif2{
 position: absolute;
@@ -169,6 +169,6 @@ height: 70px;
 left: 408px;
 top: calc(50% - 70px/2 + 4px);
 
-background: url(rafal.jpg);
+background: url(rafal.png);
 }