im kind of new with shiny programming. I wrote a programm with a dashboard layout.
When I wan to run my programm it doesn't open my menuSubItems and gives me a message.
I can't find the reason why my programm is not working properly.
I hope you can help me
Warnung: Paket ‘shinydashboard’ wurde unter R Version 3.6.3 erstellt
Attache Paket: ‘shinydashboard’
The following object is masked from ‘package:graphics’:
dashboardSidebar(
sidebarMenu(
id = "tabs",
menuItem("Einleitung",tabName = "Einleitung"),
menuItem("Versuch",tabName = "Versuch",icon = icon("")),
menuItem("Aufgaben",icon = icon("calculator"),
menuSubItem("Aufgabe 1", tabName = "Aufgabe 1"),
menuSubItem("Aufgabe 2", tabName = "Aufgabe 2"),
menuSubItem("Aufgabe 3", tabName = "Aufgabe 3"),
menuSubItem("Aufgabe 4", tabName = "Aufgabe 4")
),
menuItem("Zusammenfassung",tabName = "Zusammenfassung")
)
),
dashboardBody(
tabItems(
tabItem(
tabName = "Einleitung",
h1("Einleitung")
),
tabItem(tabName = "Versuch",
h2("Versuch"),
h4("Um herauszufinden, was mit den einzelnen Unsicherheiten passiert, betrachten wir den Staffellauf der Bundesjugendspiele."),
h4("Bei den diesjährigen Bundesjugendspielen war die Staffel mit Jacob, Alexander, Aylin und Imke die schnellste. Ihre Zeit betrug 55,2s ± 0,8"),
br(),
h4("Die Einzelzeiten betrugen:"),
h4(" "),
h4("Jacob: 12,2s ± 0,2s"),
h4("Alexander: 12,9s ± 0,2s"),
h4("Aylin: 14,9s ± 0,2s"),
h4("Imke: 15,2s ± 0,2s"),
h4("Vergleiche die einzelnen Zeiten mit der Gesamtzeit."),
h4("Notiere deine Erkenntnisse in den Kasten"),
textAreaInput("Erkenntnisse","Erkenntnisse",width = 600,height = 200),
actionButton("weiter","weiter"),
verbatimTextOutput("Lösung"),
h4("War es Sinnvoll, die Sprints einzeln zu messen, oder ist es besser erst nach dem letzten Sprint die Gesamtzeit zu messen?"),
h4("Schreibe deine Antwort in den Kasten und Begründe deine Gedanken."),
textAreaInput("Messung_Antwort","Antwort",width = 600,height = 200)
),
tabItem(tabName = "Aufgaben"
),
tabItem(tabName = "Aufgabe 1",
h2("Aufgabe 1"),
h4("Du hast nun herausgefunden, dass bei der Addition von Messergebnissen die Unsicherheiten zu einer Gesamtunsicherheit addiert werden."),
h4("Das gleiche passiert bei der Subtraktion. Hier werden die Messergebnisse subtrahiert, aber die Unsicherheiten werden addiert. "),
br(),
h4("Bearbeite die folgenden Aufgaben, um deine Erkenntnisse zu festigen."),
h4("Wähle das richtige Ergebnis der Rechnung aus."),
h4("(24,6 A ± 0,2 A) + (0,4A ± 0,1 A)+(15,3A ± 0,7A) + (2,7A ± 0,3A)"),
radioButtons("radio1","Lösungen:",c("43 A ± 1,3 A","34A ± 0,5 A","23A ± 5,50A","100A")),
actionButton("Antwort_1","Lösung"
)
),
tabItem(tabName = "Aufgaben2",
h2("Aufgabe 2"),
h4("Marty hat von Dr. Brown wichtige Messergebnisse zu seiner Forschungsarbeit bekommen. Leider hat Marty auf dem Weg zur Bandprobe einen Teil der Ergebnisse verloren und muss dieses selber ausrechnen."),
h4("Kannst du Ihm helfen, damit die Forschung von Dr. Brown nicht umsonst war. "),
br(),
h4("Die Rechnung lautet:"),
h4("(19,0 s ± 0,1 s) - (1,5 s ± 0,3 s) - (1,3 s ± 0,2s) + (18,7 ± 0,2 s)"),
br(),
h4("Marty ist sich mit dem Ergebnis nicht mehr ganz sicher. Kannst du das richtige Ergebnis für Ihn aussuchen?"),
radioButtons("radio2","Lösungen:",c("34,9 s ± 0,8 s","38,4 s ± 0,5 s","35,0 s ± 1.1 s","36,7 ± 1,0 s")),
actionButton("Antwort_2","Lösung"),
verbatimTextOutput("Antwortaufgabe2")
),
tabItem(tabName = "Aufgabe 3",
h2("Aufgabe 3"),
h4("leider hat Marty noch weitere Messdaten von Dr. Brown durcheinander gebracht. Diesesmal hat er das Messergebnis und braucht nur die passenden Messwerte zum Ergebnis."),
h4("Ohne deine Hilfe bekommt er die Rechnung nicht hin."),
h4("Das Messergebnis lautet: 56,34 kg ± 0,09 kg "),
br(),
h4("Die Messwerte zur Auswahl sind: "),
radioButtons("radio3","Messwerte:",c("34,9 s 36,8 s 33,3 s 25,9 s","45,4 m 44.9 m 47,8 m 49,1 m","56,30 kg 55,20 kg 57,00 kg 56,86 kg","34,4 V 32,6 V 35,6 V 34,7 V")),
actionButton("Antwort_3","Lösung"),
verbatimTextOutput("Antwortaufgabe3")
),
tabItem(tabName = "Aufgabe 4",
h2("Aufgabe 4"),
h4("Als letztes musst du um Marty zu helfen eine kleine AUfgabe für Ihn Lösen. Er hat alle Messwerte und das Ergebnis, aber leider fehlt die dazugehörige Rechung. Hilf Ihm mit der Rechung, um Ihn vor Dr. Browns Zorn zu schützen"),
h4("Die Messwerte lauten: 193,4 m ± 0,4 m 188,5 m ± 0,5 m 190,3 m ± 0,2 m 191,7 m ± 0,4 m"),
h4("Das Messergebnis lautet: 763,9 m ± 1,5m "),
br(),
h4("Schreibe die Rechnung in das Feld."),
textAreaInput("Aufgabe4_Antwort","Rechnung",width = 650,height = 200),
actionButton("Antwort_4","Lösung"),
verbatimTextOutput("Antwortaufgabe4")
),
tabItem(tabName = "Zusammenfassung",
h2("Zusammenfassung"))
observeEvent( input$Antwort_1, {
output$Antwortaufgabe1 <- renderText({"(24,6 A ± 0,2 A) + (0,4 A ± 0,1 A) + (15,3 A ± 0,7 A) + (2,7 A ± 0,3 A)
= (24,6 A + 0,4 A + 15,3 A + 2,7 A) ± (0,2 A + 0,1 A + 0,7 A + 0,3 A)
= 43 A ± 1,3 A"
})
})
observeEvent( input$Antwort_2, {
output$Antwortaufgabe2 <- renderText({"(19,0 s ± 0,1 s) - (1,5 s ± 0,3 s) - (1,3 s ± 0,2 s) + (18,7 s ± 0,2 s)
= (19,0 s - 1,5 s - 1,3 s + 18,7 s) ± (0,1 s + 0,3 s + 0,2 s + 0,2 s)
= 34,9 ± 0,8 s"
})
})
observeEvent( input$Antwort_3, {
output$Antwortaufgabe3 <- renderText({" Die richtigen Messwerte sind :
56,30 kg 55,20 kg 57,00 kg 56,86 kg"
})
})
observeEvent( input$Antwort_4, {
output$Antwortaufgabe4 <- renderText({"(193,4 m ± 0,4 m) + (188,5 m ± 0,5 m) + (190,3 m ± 0,2 m) + (191,7 m ± 0,4 m)
= (193,4 m + 188,5 m + 190,3 m + 191, 7 m) ± (0,4 m + 0,5 m + 0,2 m + 0,4 m)
= 763,9 m ± 1,5m"
Hello everyone,
im kind of new with shiny programming. I wrote a programm with a dashboard layout. When I wan to run my programm it doesn't open my menuSubItems and gives me a message. I can't find the reason why my programm is not working properly.
I hope you can help me
Warnung: Paket ‘shinydashboard’ wurde unter R Version 3.6.3 erstellt
Attache Paket: ‘shinydashboard’
The following object is masked from ‘package:graphics’:
Here is my programm:
library(shiny) library(shinydashboard)
shinyUI( dashboardPage(skin = "green", dashboardHeader(title = "Addition von messunsicherheiten",titleWidth = 600),
) )
)
library(shiny) library(shinydashboard)
shinyServer(function(input,output,session){
observeEvent( input$weiter, { output$Lösung<-renderText({"jsdlkjflsfjlsjfl"})
})
observeEvent( input$Antwort_1, { output$Antwortaufgabe1 <- renderText({"(24,6 A ± 0,2 A) + (0,4 A ± 0,1 A) + (15,3 A ± 0,7 A) + (2,7 A ± 0,3 A) = (24,6 A + 0,4 A + 15,3 A + 2,7 A) ± (0,2 A + 0,1 A + 0,7 A + 0,3 A) = 43 A ± 1,3 A" })
})
observeEvent( input$Antwort_2, { output$Antwortaufgabe2 <- renderText({"(19,0 s ± 0,1 s) - (1,5 s ± 0,3 s) - (1,3 s ± 0,2 s) + (18,7 s ± 0,2 s) = (19,0 s - 1,5 s - 1,3 s + 18,7 s) ± (0,1 s + 0,3 s + 0,2 s + 0,2 s) = 34,9 ± 0,8 s" })
observeEvent( input$Antwort_3, { output$Antwortaufgabe3 <- renderText({" Die richtigen Messwerte sind : 56,30 kg 55,20 kg 57,00 kg 56,86 kg" })
}) observeEvent( input$Antwort_4, { output$Antwortaufgabe4 <- renderText({"(193,4 m ± 0,4 m) + (188,5 m ± 0,5 m) + (190,3 m ± 0,2 m) + (191,7 m ± 0,4 m) = (193,4 m + 188,5 m + 190,3 m + 191, 7 m) ± (0,4 m + 0,5 m + 0,2 m + 0,4 m)
= 763,9 m ± 1,5m"
})
})