У меня есть блестящее приложение, которое содержит 2 вкладки. Во второй вкладке я запускаю запрос SQL, чтобы вернуть кадр данных, который я хочу опубликовать на экране, чтобы пользователь мог видеть. Для краткости я включил только соответствующий код. В основном пользователь выбирает диапазон дат, это относится к базе данных и извлекает соответствующую информацию и возвращает эту информацию серверу для публикации на экране. В настоящее время при запуске приложения я получаю сообщение об ошибкеR блестящий, не удается найти функцию
Error: could not find function "report_data"
Я был бы признателен за любую помощь вы можете предоставить
#-----------------------------------------------------------------------------------------
# UI
# TAB 2 which lets the user select a date range and press the submit button
#-----------------------------------------------------------------------------------------
tabPanel("Review Uploaded Data",
# Side Panel with Options
fluidRow(
column(4, wellPanel(
id = "leftPanel",
div(id = "Header",
h3("Options", align = "center"),
tags$hr()
),
div(id = "form2",
dateRangeInput("dates", label = h3("Entry Date Range")),
actionButton("search", "Search Database", class = "btn-primary")
)
)),
column(8, id = "reporttable",
# Main Panel shows the uploaded excel document when a user first uploads
DT::dataTableOutput("reportTable")
)))
#-----------------------------------------------------------------------------------------
# Server
# TAB 2 Review Uploaded Data
#-----------------------------------------------------------------------------------------
# When User selects a date Range. Run the SQL to pull information for that Date Range
report_data <- observeEvent(input$search, {
load_data(input$dates)
})
# Show the summary table
output$reportTable <- DT::renderDataTable(
DT::datatable(
report_data(),
rownames = TRUE,
options = list(searching = FALSE, lengthChange = FALSE, scrollX = FALSE)
))
Эта функция является функцией, которая идет к базе данных и возвращает dataframe на основе пользователи выбирают диапазон дат.
# Load the data from the MYSQL table
load_data <- function(dateRange) {
# Connect to the database
db <- dbConnect(MySQL(), dbname = databaseName, host = options()$mysql$host,
port = options()$mysql$port, user = options()$mysql$user,
password = options()$mysql$password)
start_date <- dateRange[1]
end_date <- dateRange[2]
# Construct the fetching query
query <- sprintf("SELECT USER, COUNT(*) as records FROM %s
WHERE ENTRY_DATE BETWEEN '%s' AND '%s' GROUP BY 1", table, start_date, end_date)
# Submit the fetch query and disconnect
data <- dbGetQuery(db, query)
dbDisconnect(db)
names(data) <- c("User", "records")
return(data)
}
вам нужно 'eventReactive' вместо' observeEvent' потому observeEvent - ничего не возвращай – Batanichek
Огромное вам спасибо, я долго целует голову. Пожалуйста, поставьте его как ответ, и я сразу же пометю его –