-
Notifications
You must be signed in to change notification settings - Fork 0
/
.Rhistory
145 lines (145 loc) · 5.78 KB
/
.Rhistory
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
title_text
library(rvest)
imdb <- read_html("https://www.imdb.com/title/tt1727824/")
install.packages("swirl")
install.packages("shiny")
> install.packages("rvest")
install.packages("rvest")
clear
library(shiny)
p("This is a pargraph")
p("This is a blue paragraph", style = "color: blue")
p(id = "intro", "This is a blue paragraph", style = "color: blue")
p("This paragraph contains a <span style='color:blue'>blue word</span>")
HTML("<p>This paragraph contains a <span style='color:blue'>blue word</span></p>")
h1("This is a header")
selectInput("inputID", label = "Select a Number:", choices = 1:10)
fluidRow(
column(width = 6, p("column 1A")),
column(width = 6, p("column 2A"))
)
# Use a fluid Bootstrap layout
fluidPage(
# Give the page a title
titlePanel("Telephones by region"),
# Generate a row with a sidebar
sidebarLayout(
# Define the sidebar with one input
sidebarPanel(
selectInput("region", "Region:",
choices=colnames(WorldPhones)),
hr(),
helpText("Data from AT&T (1961) The World's Telephones.")
),
# Create a spot for the barplot
mainPanel(
plotOutput("phonePlot")
)
)
)
runApp('D:\ECSU CSC-360 Advanced Web Development and Web Scraping\w 11 Ui.R\')
runApp('D:/ECSU CSC-360 Advanced Web Development and Web Scraping/w 11 Ui.R')
runApp('D:/ECSU CSC-360 Advanced Web Development and Web Scraping/w 11 Ui.R')
runApp('D:/ECSU CSC-360 Advanced Web Development and Web Scraping/w 11 Ui.R')
runApp('D:/ECSU CSC-360 Advanced Web Development and Web Scraping/w 11 Ui.R')
babyNames <- read.csv("http://gdancik.github.io/CSC-360/data/hw/babyNames.csv",
header = TRUE, sep = ",")
name = "Josephine"
# search for a name
name = "Josephine"
# create data frame with results for desired name
df <- babyNames[babyNames$name == name,]
# generate a bar graph of frequency of that name over time
main <- paste("Frequency of", name, "baby names over time")
barplot(df$count, names.arg = df$year, col = "lightblue",
xlab = "year", ylab = "Frequency",
main = main)
# which year was that name the most popular?
w <- which.max(df$count)
df$year[w]
# what was the frequency in the most popular year?
m <- max(df$count)
m
# Rely on the 'WorldPhones' dataset in the datasets
# package (which generally comes preloaded).
library(datasets)
#runApp('D:/ECSU CSC-360 Advanced Web Development and Web Scraping/w 11 Ui.R')
# change the / to \
# Use a fluid Bootstrap layout
fluidPage(
# Give the page a title
titlePanel("Telephones by region"),
h2("Telephones by region", style = "color:green"),
# Generate a row with a sidebar
sidebarLayout(
# Define the sidebar with one input
sidebarPanel(
selectInput("region", "Region:",
choices=colnames(WorldPhones)),
hr(),
helpText("Data from AT&T (1961) The World's Telephones.")
),
# Create a spot for the barplot
mainPanel(
plotOutput("phonePlot")
)
)
)
runApp(D:/ECSU CSC-360 Advanced Web Development and Web Scraping/w 11/Ui.R)
runApp(D:ECSU CSC-360 Advanced Web Development and Web Scraping/w 11/Ui.R)
runApp('D:/ECSU CSC-360 Advanced Web Development and Web Scraping/w 11')
shiny::runApp('D:/ECSU CSC-360 Advanced Web Development and Web Scraping/Assingment/assignmnet 10')
runApp('D:/ECSU CSC-360 Advanced Web Development and Web Scraping/Assingment/assignmnet 10')
runApp('D:/ECSU CSC-360 Advanced Web Development and Web Scraping/Assingment/assignmnet 10')
runApp('D:/ECSU CSC-360 Advanced Web Development and Web Scraping/Assingment/assignmnet 10')
runApp('D:/ECSU CSC-360 Advanced Web Development and Web Scraping/Assingment/assignmnet 10')
runApp('D:/ECSU CSC-360 Advanced Web Development and Web Scraping/Assingment/assignmnet 10')
runApp('D:/ECSU CSC-360 Advanced Web Development and Web Scraping/Assingment/assignmnet 10')
runApp('D:/ECSU CSC-360 Advanced Web Development and Web Scraping/Assingment/assignmnet 10')
runApp('D:/ECSU CSC-360 Advanced Web Development and Web Scraping/Assingment/assignmnet 10')
?renderText
runApp('D:/ECSU CSC-360 Advanced Web Development and Web Scraping/Assingment/assignmnet 10')
print("hi", 3)
print("hi", 3, "be")
"hi" + 3
paste("hi",3)
runApp('D:/ECSU CSC-360 Advanced Web Development and Web Scraping/Assingment/assignmnet 10')
runApp('D:/ECSU CSC-360 Advanced Web Development and Web Scraping/Assingment/assignmnet 10')
runApp('D:/ECSU CSC-360 Advanced Web Development and Web Scraping/Assingment/assignmnet 10')
runApp('D:/ECSU CSC-360 Advanced Web Development and Web Scraping/Assingment/assignmnet 10')
runApp('D:/ECSU CSC-360 Advanced Web Development and Web Scraping/Assingment/assignmnet 10')
runApp('D:/ECSU CSC-360 Advanced Web Development and Web Scraping/Assingment/assignmnet 10')
runApp('D:/ECSU CSC-360 Advanced Web Development and Web Scraping/Assingment/assignmnet 10')
shiny::runApp('D:/ECSU CSC-360 Advanced Web Development and Web Scraping/Assingment/final projects')
runApp('D:/ECSU CSC-360 Advanced Web Development and Web Scraping/Assingment/final projects')
runApp('D:/ECSU CSC-360 Advanced Web Development and Web Scraping/Assingment/final projects')
runApp('D:/ECSU CSC-360 Advanced Web Development and Web Scraping/Assingment/final projects')
setwd("D:/ECSU CSC-360 Advanced Web Development and Web Scraping/Assingment/final projects")
setwd("D:/ECSU CSC-360 Advanced Web Development and Web Scraping/Assingment/final projects")
setwd("D:/ECSU CSC-360 Advanced Web Development and Web Scraping/Assingment/final projects")
library(readr)
dataset <- read_csv(NULL)
View(dataset)
runApp()
View(babyNames)
library(readxl)
flightprices <- read_excel("flightprices.csv")
View(flightprices)
View(babyNames)
runApp()
View(flightprices)
View(df)
View(df)
View(babyNames)
View(df)
View(babyNames)
flightprices <- read.csv("D:/ECSU CSC-360 Advanced Web Development and Web Scraping/Assingment/final projects/flightprices.csv", sep="")
View(flightprices)
library(readxl)
flightprices <- read_excel("flightprices.csv")
View(flightprices)
runApp()
runApp()
View(flightprices)
runApp()
runApp()