-
Notifications
You must be signed in to change notification settings - Fork 1
/
UpdateTable.R
84 lines (76 loc) · 3.02 KB
/
UpdateTable.R
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
###########################################################################################
# Author: Dr. Andreas Fischer
# Date: 15.11.2022
# Description: R-Syntax zur Generierung einer HTML-Tabelle für das digitale Pflegeportal
auf Basis der Datei "Überblick Digitalisierung Pflege.xlsx".
###########################################################################################
install.packages("readxl")
path="myPath"
while(!file.exists(path)) path=utils::choose.dir("","Wähle Ordner in dem die xlsx des RZBB liegt")
setwd(path);
file= # spezifiziere xlsx-Files mit den Befragungsdaten
beschreibungen=readxl::read_xlsx(
"Überblick Digitalisierung Pflege.xlsx", sheet=2)
#gsub("^[~][$]","",list.files(pattern="[.]xlsx$")[1]),sheet=2)
beschreibungen=beschreibungen[rowSums(is.na(beschreibungen[,1:4]))<4,] # exclude missing entries
url=gsub("[<>]","",beschreibungen[[2]])
anwendung=gsub("[<>]","",beschreibungen[["Anwendung"]])
kurzbeschreibung=gsub("[<>]","",beschreibungen[["Kurzbeschreibung von Angebotswebsite"]])
feld=gsub("[<>]","",beschreibungen[["Feld"]])
feldA=gsub("/.*","",feld)
feldB=gsub(".*/","",feld)
table(feldA)
sum(table(feldA))
rows=sapply(1:length(anwendung), function(id) paste0(
"<tr class=\"row\">\n",
"<td><strong>",id,"</strong></td>\n",
"<td><a href=\"",url[id],"\">",anwendung[id],"</a> </td>\n",
"<td>",feldA[id]," </td>\n",
"<td>",feldB[id]," </td>\n",
"<td>",kurzbeschreibung[id],"</td>\n",
"</tr>\n"
));
rows=c(
"<tr class=\"filter\">\n",
"<td></td>\n",
"<td><input type=\"text\" id=\"filter\" onkeyup=\"filterTable()\" placeholder=\"Filter Produktname...\"></td>",
"<td>\n",
"<select name=\"Arbeitsart\" id=\"filter2\" onchange=\"filterTable()\">\n",
"<option value=\"\">Alle anzeigen</option>\n",
"<option value=\"prA\">prA</option>\n",
"<option value=\"iA\">iA</option>\n",
"<option value=\"wA\">wA</option>\n",
"</select>",
"</td>\n",
"<td>\n",
"<select name=\"Technologie\" id=\"filter3\" onchange=\"filterTable()\">\n",
"<option value=\"\">Alle anzeigen</option>\n",
"<option value=\"Assistenzsystem\">Assistenzsystem</option>\n",
"<option value=\"Dokumentation\">Dokumentation</option>\n",
"<option value=\"Kommunikation\">Kommunikation</option>\n",
"<option value=\"Robotik\">Robotik</option>\n",
"<option value=\"Telecare\">Telecare</option>\n",
"</select>\n",
"</td>\n",
"<td><input type=\"text\" id=\"filter4\" onkeyup=\"filterTable()\" placeholder=\"Filter Kurzbeschreibung...\"></td>\n",
rows
)
table=paste0("
<table id=\"products\">
<thead>
<tr>
<th style=\"width:5%;color:white;\">Id</th>
<th style=\"width:15%;color:white;\">Produktname</th>
<th style=\"width:10%;color:white;\">Arbeitsart</th>
<th style=\"width:10%;color:white;\">Technologieart</th>
<th style=\"width:60%;color:white;\">Kurzbeschreibung<br>(von Angebotswebsite)</th>
</tr>
</thead>
<tbody>
",
paste0(rows,collapse=""),
"
</tbody>
</table>
")
writeLines(table,paste0(Sys.Date(),"_updatedTable.html"))