我需要創建閃亮的應用程式，它將根據下拉選單選擇創建一個繪圖。整個計算部分非常復雜，繪圖也是如此——我創建了一個回傳 ggplot 的函式，我只是想在應用程式中顯示它。我的想法如下：
library(shiny)
source('Analysis/function_external.R')
list_names = c('a', 'b', 'c')
ui <- fluidPage(
selectInput("data", "Select data to plot", choices = list_names)
)
# Define server logic required to draw a histogram
server <- function(input, output) {
observe({function_external(input$data)})
}
# Run the application
shinyApp(ui = ui, server = server)
每次更改輸入時它都會運行函式，但它沒有顯示任何內容。如果您能給我指出好的方向，我將不勝感激。
uj5u.com熱心網友回復：
output$my_complicated_plot <- renderPlot({ function_external(input$data) }) 解決了這個問題。
轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/335800.html