У меня есть блестящий файл приложения следующим образом.Я получаю сообщение об ошибке «Произошла ошибка. Проверьте ваши журналы или свяжитесь с автором приложения».Я не могу понять, что не так.То, что находится в файле журнала, также не имеет смысла для меня:
processing file: index.Rmd
Quitting from lines 8-43 (index.Rmd)
Warning: Error in tag: argument "label" is missing, with no default
150: tag
149: tags$button
148: actionButton
137: eval
136: eval
131: evaluate_call
130: evaluate::evaluate
129: evaluate
127: block_exec
126: call_block
125: process_group.block
122: process_file
121: knitr::knit
120: <Anonymous>
115: <reactive>
99: doc
98: shiny::renderUI
97: func
84: origRenderFunc
83: output$__reactivedoc__
3: <Anonymous>
1: rmarkdown::run
Вот содержимое файла.Я хотел бы иметь два раскрывающихся ввода, которые указывают, какие два столбца данных нам интересны. Затем мы отображаем двустороннюю таблицу сопряженности (частотный анализ) для этих двух столбцов.
library(shiny)
ui <- fluidPage(
titlePanel("Frequency Analysis"),
sidebarLayout(
sidebarPanel(
selectInput(inputId = "course1",
label = "Choose a course:",
choices = c("CS125", "CS173", "CS225", "CS374")),
selectInput(inputId = "course2",
label = "Choose a course:",
choices = c("CS125", "CS173", "CS225", "CS374")),
),
mainPanel(
verbatimTextOutput("tableOut"),
tableOutput("tableOut")
)
)
)
server <- function(input, output) {
courseInput <- reactive({
switch(input$course1,
"CS125" = CS125,
"CS173" = CS173,
"CS225" = CS225,
"CS374" = CS374
)
switch(input$course2,
"CS125" = CS125,
"CS173" = CS173,
"CS225" = CS225,
"CS374" = CS374
)
})
output$tableOut = renderPrint({
data = read.csv(file = 'FourCourseTableLetterGrades_POLISHED.csv', sep = '\t')
tbl = table(data$input$course1, data$input$course2)
tbl
})
}
# Create Shiny app ----
shinyApp(ui, server)