作者clsmbstu (missing)
看板R_Language
標題[問題] Shiny可以在運算未完成時於UI提示嗎？
時間Mon Aug 21 22:43:00 2017
[問題類型]:
程式諮詢(我想用R 做某件事情，但是我不知道要怎麼用R 寫出來)
[軟體熟悉度]:
使用者(已經有用R 做過不少作品)
[問題敘述]:
我最近做了一隻Shiny程式，但它需要的運算耗時比較久，
（而且在shinyapps.io上花的時間比我在本地長很多...）
好奇有沒有可能在UI裡面加一行提示（例如「運算中，請稍候」之類的），
而且只在結果還沒出來時才有那一行？
我知道也許長期目標是讓我的程式碼更有效率一點，
但目前我還想不到改寫的方式。 orz
[程式範例]:
ui <- fluidPage(
# Other UI elements
conditionalPanel(condition = "output.done == 'FALSE'",
helpText("運算中，請稍候"))
)
server <- function(input, output) {
output$done <- reactive({"FALSE"})
# Complicated processes
output$done <- reactive({"TRUE"})
outputOptions(output, "done", suspendWhenHidden = FALSE)
}
[關鍵字]:
shiny, dynamic UI
--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 118.167.58.15
※ 文章網址: https://webptt.com/m.aspx?n=bbs/R_Language/M.1503326582.A.2EC.html
1F：→ celestialgod: 關鍵字 showModal shiny 08/22 00:28
2F：→ celestialgod: 或是勇shinyBS，不過個人不推 08/22 00:29
3F：→ celestialgod: shinyBS::bsModal 一年前用有一些問題，不確定現在 08/22 00:31
4F：→ celestialgod: 有沒有改善，但是多數功能 shiny showModal就可以解 08/22 00:31
5F：→ celestialgod: 決 08/22 00:31
6F：→ clsmbstu: 感謝！再找時間來玩玩看～ 08/22 01:51
8F：→ clsmbstu: 這個也好棒！大感謝！ 08/22 10:37
※ 編輯: clsmbstu (140.112.25.106), 08/22/2017 11:13:43
9F：→ clsmbstu: 細讀之後發現我的狀況withProgress提供的幫助有限 08/22 15:35
10F：→ clsmbstu: 因為我最花時間的地方是leaflet::addPolygons而非迴圈 08/22 15:35
11F：→ clsmbstu: 我試過把地圖繪製的pipeline切開來並在中間放incProgess 08/22 15:37
12F：→ clsmbstu: 但詭異的是進度條跑滿了，圖還是要再等一陣子才會出來 08/22 15:38
13F：推 cywhale: 不是可以 withProgress(message=... { 08/23 01:05
14F：→ cywhale: ..(Your processes)..leaflet %<>% addPolygons() }) 08/23 01:06
我是參考你附的連結的寫法，
（本來想把每個server outputs都包在一個withProgress一起讀進度，但邏輯好像不對）
以下是我的server function一部分的簡化（省去根據UI的一些條件判斷式）：
output$mapplot <- renderLeaflet({
# Define palettes
pal <- colorNumeric("YlOrRd", merge_map()$Values)
labs <- sprintf(
"<strong>%s</strong><br>%g%%", merge_map()$CountyTown, merge_map()$Values
) %>%
lapply(HTML)
# Map plotting
leaflet(merge_map()) %>%
setView(121, 23.5, 7) %>%
addTiles() %>%
addPolygons(weight = 2, color = "white", dashArray = 3,
fillColor = ~pal(Values), fillOpacity = 0.8,
highlightOptions = highlightOptions(
weight = 5, color = "#636363", bringToFront = TRUE
),
label = labs,
labelOptions = labelOptions(
textsize = "15px",
style = list("font-weight" = "normal")
)) %>%
addLegend(position = "bottomright",
pal = pal, values = ~Values, opacity = 0.8,
title = "Percentages",
labFormat = labelFormat(suffix = "%"))
})
為了加進度條，變成：
output$mapplot <- renderLeaflet({
withProgress(
value = 0, message = "地圖繪製中", detail = "製作說明標籤"
expr = {
# Define palettes
pal <- colorNumeric("YlOrRd", merge_map()$Values)
labs <- sprintf(
"<strong>%s</strong><br>%g%%", merge_map()$CountyTown, merge_map()$Values
) %>%
lapply(HTML)
incProgress(0.1, detail = "套疊地圖圖層")
# Map plotting
final_map <- leaflet(merge_map()) %>%
setView(121, 23.5, 7) %>%
addTiles()
incProgress(0.2, detail = "繪製各區域資料")
final_map <- addPolygons(
final_map, weight = 2, color = "white",
dashArray = 3,
fillColor = ~pal(Values), fillOpacity = 0.8,
highlightOptions = highlightOptions(
weight = 5, color = "#636363", bringToFront = TRUE
),
label = labs,
labelOptions = labelOptions(
textsize = "15px",
style = list("font-weight" = "normal")
))
incProgress(0.5, detail = "製作圖例")
final_map <- addLegend(
final_map, position = "bottomright",
pal = pal, values = ~Values, opacity = 0.8,
title = "Percentages",
labFormat = labelFormat(suffix = "%"))
incProgress(0.2, detail = "即將完成")
}
)
final_map
})
先不提每次的進度前進多少其實是我的主觀認定這件事，
要把原本的pipeline切開才能更新進度條也是有點麻煩。
最後更奇怪的是，進度條還是幾乎瞬間跑完，但地圖並沒有馬上出來...
我懷疑要把物件呈現上來本身也很花時間？
但是在這裡的倒數第二行"final_map"似乎不能包進withProgress裡面，
否則根本不會有地圖出來。
這樣提供的資訊夠嗎？
※ 編輯: clsmbstu (140.112.121.113), 08/23/2017 17:00:25
15F：推 cywhale: 跑比較多polygon在leaflet 最後這一步的確會慢一些.. 08/23 22:04
16F：→ cywhale: 不過如果用leafletProxy放不需要更新的部分，只更新新的 08/23 22:08
17F：→ cywhale: addpolygon部分 不知道對最後這一步顯示速度有無幫助.. 08/23 22:09
18F：→ clsmbstu: 感謝！我也有查到leafletProxy，但我是主觀猜測應該幫助 08/23 22:30
19F：→ clsmbstu: 不大，畢竟我每次更換輸入就是要重畫超過350個polygons 08/23 22:31
20F：→ clsmbstu: 而前面只是做到addTiles而已 QQ 08/23 22:32
21F：推 locka: 請問clsmbstu大大是在一個addPolygons()裡超過350個多邊形( 08/23 23:14
22F：→ locka: 例如全台鄉鎮)還是addPolygons()執行350次啊？？ 08/23 23:14
23F：→ clsmbstu: 是前者喔 我就是在畫全臺鄉鎮 XD 08/23 23:40