s426228/TakeCareApp
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity
294ea466ed
TakeCareApp/app/.Rhistory
Jan Przybylski 294ea466ed dodano zdjecia
2020-12-17 01:07:12 +01:00

513 lines
17 KiB
R
Raw Blame History

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')
Reference in New Issue View Git Blame Copy Permalink