library(plotly)
devtools::install_github("ropensci/plotly")
install.packages("plotly")
Sys.setenv("plotly_username"="dzadek")
Sys.setenv("plotly_api_key"="SdiUtTzLlmHReaYto5WM")
library(plotly)
p <- plot_ly(midwest, x = ~percollege, color = ~state, type = "box")
p
p <- plot_ly(midwest, x = ~percollege, color = ~state, type = "box")
p <- plot_ly(midwest, x = ~percollege, color = ~state, type = "box")
help(plot_ly)
p <- plot_ly(midwest, y = ~percollege, color = ~state, type = "box")
p
midwest
help(plotly_POST)
p
plotly_POST(filename = "public-graph")
p <- plot_ly(midwest, y = ~percollege, color = ~state, type = "box", notch=TRUE)
p
p <- plot_ly(midwest, y = ~percollege, color = ~state, type = "box", orientation=1)
p
p <- plot_ly(midwest, y = ~percollege, color = ~state, type = "box", orientation=2)
p
p <- plot_ly(midwest, y = ~percollege, color = ~state, type = "box", orientation=0)
p
p <- plot_ly(midwest, y = ~percollege, color = ~state, type = "box", orientation="v")
p
p <- plot_ly(midwest, y = ~percollege, color = ~state, type = "box", orientation="h")
p
p <- plot_ly(midwest, y = ~percollege, color = ~state, type = "box", orientation="v", legend=FALSE)
p
p <- plot_ly(midwest, y = ~percollege, color = ~state, type = "box", orientation="v", showlegend=FALSE)
p
plotly_POST(filename = "public-graph")
plotly_POST(filename = "public-graph2")
setwd("C:/Users/Jozi/Desktop/Seminar")
shiny::runApp('App9')
runApp('App9')
runApp('App9')
runApp('App9')
runApp('App9')
runApp('App9')
runApp('App9')
runApp('App9')
runApp('App9')
runApp('App9')
runApp('App9')
data
runApp('App9')
runApp('App9')
runApp('App9')
runApp('App9')
runApp('App9')
runApp('App9')
runApp('App11')
runApp('App11')
runApp('App11')
runApp('App11')
runApp('App11')
runApp('App11')
runApp('App11')
runApp('App11')
runApp('App11')
runApp('App11')
runApp('App11')
runApp('App11')
runApp('App11')
runApp('App11')
runApp('App11')
runApp('App11')
runApp('App11')
runApp('App11')
runApp('App11')
runApp('App11')
runApp('App11')
runApp('App11')
runApp('App11')
runApp('App11')
input$file$datapath
runApp('App11')
input$file$datapath
runApp('App11')
runApp('App11')
runApp('App11')
runApp('App11')
runApp('App11')
runApp('App11')
runApp('App11')
runApp('App11')
runApp('App11')
runApp('App11')
runApp('App11')
runApp('App11')
runApp('App11')
runApp('App11')
runApp('App11')
runApp('App11')
runApp('App11')
runApp('App11')
runApp('App11')
runApp('App11')
runApp('App11')
runApp('App11')
runApp('App11')
zaokruhli <- function(matica,dig)
{
novaMatica <- matrix("", ncol = 2, nrow = 2)
for(i in 1:2) for(j in 1:2) novaMatica[i,j] <- sprintf(paste0("%.", dig, "f"),matica[i,j])
}
zaokruli(matrix(0,2,2),3)
zaokruhli(matrix(0,2,2),3)
zaokruhli <- function(matica,dig)
{
novaMatica <- matrix("", ncol = 2, nrow = 2)
for(i in 1:2) for(j in 1:2) novaMatica[i,j] <- sprintf(paste0("%.", dig, "f"),matica[i,j])
novaMatica
}
zaokruhli(matrix(0,2,2),3)
runApp('App11')
runApp('App11')
runApp('App11')
runApp('App11')
runApp('App11')
runApp('App10')
runApp('App12')
expression(4*x+3)
runApp('App12')
runApp('App12')
runApp('App12')
runApp('App12')
expression("4*x+3")
expression(4*x+3)
runApp('App12')
runApp('App12')
vyraz <- sprintf("%s*x+%s",4,2)
vyraz
runApp('App12')
runApp('App12')
runApp('App12')
runApp('App12')
runApp('App9')
runApp('App9')
runApp('App9')
runApp('App9')
runApp('App9')
runApp('App9')
runApp('App9')
runApp('App13')
runApp('App13')
