Course4-homework/example.R at main · Wanshu8/Course4-homework · GitHub

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
install.packages("shiny")
install.packages("readxl")
install.packages("DT")
install.packages("wordcloud2")
install.packages("stopwords")


library(readxl)

dfmv<-readxl::read_excel("movies.xlsx",1)

css_content <- "
#sidebar {
  background-color: purple;
  color: white;
}

#sidebar .form-group input,
#sidebar .form-group select,
#sidebar .form-group .slider {
  background-color: purple;
  color: white;
  border-color: white;
}

#sidebar .irs-bar,
#sidebar .irs-bar-edge,
#sidebar .irs-single,
#sidebar .irs-grid-pol,
#sidebar .irs-handle {
  background-color: white;
  border-color: white;
}

#sidebar .irs-handle:hover {
  background-color: #f0f0f0;
  border-color: #f0f0f0;
}

#sidebar .irs-from,
#sidebar .irs-to,
#sidebar .irs-single {
  color: purple;
}

#sidebar .irs-line,
#sidebar .irs-line-left,
#sidebar .irs-line-right {
  background-color: white;
  border-color: white;
}

#sidebar .form-group label {
  color: white;
}
"

# Write the CSS content to a file named "styles.css"
writeLines(css_content, "styles.css")