[問題] shiny使用迴圈跑多組模型並依序輸出

看板R_Language作者aee36900 (持久戰!!)時間10年前 (2015/11/30 12:00)推噓0(0推 0噓 7→)

留言7則, 2人參與討論串1/1

文章分類提示: - 問題: 當你想要問問題時，請使用這個類別 [問題類型]: 程式諮詢(我想用R 做某件事情，但是我不知道要怎麼用R 寫出來) [軟體熟悉度]: 請把以下不需要的部份刪除入門(寫過其他程式，只是對語法不熟悉) [問題敘述]: 想要使用shiny跑多組不同參數設定的模型然後layout server端的output不知道如何使用迴圈代替 [程式範例]: 程式有做些簡化 ui的設計如下 library(shiny) shinyUI(fluidPage( headerPanel("model"), sidebarLayout( sidebarPanel( selectInput("city", "choice a city:", list("...")) submitButton("Update View") ), mainPanel( splitLayout( plotOutput("ns_plot1"), plotOutput("ns_plot2"), plotOutput("ns_plot3"), plotOutput("ns_plot4"), plotOutput("ns_plot5") ) ) ))) server的設計如下 #由前端接收參數當作SQL的條件然後去impala撈資料 #接著在renderPlot中跑模型並畫出圖形行輸出至前端 library(shiny) library(RImpala) shinyServer(function(input, output) { datainput <- reactive({ sql_query <- paste(...) rimpala.init() rimpala.connect() impala_dataset <-rimpala.query(sql_query) rimpala.close() m2 <- impala_dataset }) i <- 1 while (i<6){ output$ns_plot(i) <- renderPlot({ m2 <- datainput() cb.ns <- crossbasis(..., argvar=list(fun="ns",df=(i)),...) model.ns <- glm(visits ~ cb.ns + dow,family=quasipoisson(), m2) pred.ns <- crosspred(cb.ns ,model.ns ) plot(predns, xlab="air factors", zlab="RR", theta=200, phi=40, lphi=30) }) }}) [環境敘述]: R version 3.2.1 (2015-06-18) Platform: x86_64-redhat-linux-gnu (64-bit) Running under: CentOS release 6.7 (Final) [關鍵字]:shiny loop polt splitLayout 選擇性，也許未來有用 -- ※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 211.76.246.58 ※ 文章網址: https://www.ptt.cc/bbs/R_Language/M.1448856048.A.139.html