アプリの起動時に光沢のあるobserveEventトリガー

Question

アプリが起動すると起動するアプリがobserveEventであり、ボタンがクリックされるのを待たない。この例では違いはありませんが、実際のアプリケーションではbusyIndi​​catorが最初の負荷で2回表示されます。 options(shiny.trace = TRUE)を使用して

name<-sample(c('a','b','c'),replace=T,5) 
LAT<-runif(5,min=-26, max=-22) 
LONG<-runif(5,min=-54, max=-48) 
data<-data.frame(name,LAT,LONG) 

ui <- shinyUI(fluidPage(
    selectInput('muni',label='Select city', 
       choices=c('Show all',sort(levels(data$name)),selected=NULL)), 
    htmlOutput('box'), 
    leafletOutput('map') 
)) 

server <- function (input, output, session) { 

data1<-reactive({ 
     if (input$muni!='Show all') { 
      data<-data[which(data$name==input$muni),] 
      } 
     return(data) 
}) 

output$box <- renderUI({ 

data<-data1() 
num<-as.integer(nrow(data)) 

lapply(1:num, function(i) { 
     bt <- paste0('go_btn',i) 
     fluidRow(
       HTML(paste0('<div style="border: 1px solid #00000026; 
       border-radius: 10px; padding: 10px;"> 
       <span style="font-size:14px font-weight:bold;">', 
       data$name[i],' - areas: a1, a2, a3</span></br>', 
       actionButton(bt,'See map',icon=icon('map-marker',lib='font-awesome')), 
       HTML('</div></br>') 
       ))) 
     }) 
    }) 

output$map<-renderLeaflet({ 

data<-data1() 
rownames(data)<-seq(1:nrow(data)) 

leaflet(data) %>% 
    addProviderTiles("Esri.WorldTopoMap") %>% 
    setView(-51.5,-24.8,zoom=7) %>% 
    addMarkers(lng=~data$LONG,lat=~data$LAT) 

}) 

lapply(1:nrow(data), function(i) { 
     observeEvent(input[[paste0('go_btn',i)]], { 
        data<-data1() 
        rownames(data)<-seq(1:nrow(data)) 

        leafletProxy('map',data=data,session=session) %>% 
           clearMarkers() %>% 
           setView(data$LONG[i],data$LAT[i],zoom=15) %>% 
           addMarkers(lng=data$LONG[i],lat=data$LAT[i]) 
     },ignoreInit = T) 
    }) 
    } 

    shinyApp(ui, server) 

私は、プロセスが二回実行されることを参照してください。 SEND { "忙しい"： "ビジー"}、{ "忙しい"： "アイドル"}送信します。 誰でも私のアプリがこのような動作をしている理由を教えてもらえますか？私はあなたの例を実行することができませんでした

Answer 1

ので、私は自分自身を作った：

library(shiny) 

options(shiny.trace = TRUE) 

ui <- shinyUI(fluidPage(
    uiOutput("content") 
)) 

server <- function (input, output, session) { 
    output$content <- renderUI({ 
    actionButton("btn", "Button") 
    }) 

    observeEvent(input$btn, { 
    print("btn") 
    }) 
} 

shinyApp(ui, server) 

このため、コンソール出力は、次のとおりです。

SEND {"config":{"workerId":"","sessionId":"1ceb44576d353c33bdc92e1eebba7ad0","user":null}} 
RECV {"method":"init","data":{".clientdata_output_content_hidden":false,".clientdata_pixelratio":1,".clientdata_url_protocol":"http:",".clientdata_url_hostname":"127.0.0.1",".clientdata_url_port":"5326",".clientdata_url_pathname":"/",".clientdata_url_search":"",".clientdata_url_hash_initial":"",".clientdata_url_hash":"",".clientdata_singletons":"",".clientdata_allowDataUriScheme":true}} 
SEND {"busy":"busy"} 
SEND {"recalculating":{"name":"content","status":"recalculating"}} 
SEND {"recalculating":{"name":"content","status":"recalculated"}} 
SEND {"busy":"idle"} 
SEND {"errors":[],"values":{"content":{"html":"<button id=\"btn\" type=\"button\" class=\"btn btn-default action-button\">Button<\/button>","deps":[]}},"inputMessages":[]} 
RECV {"method":"update","data":{"btn:shiny.action":0}} 
SEND {"busy":"busy"} 
SEND {"busy":"idle"} 

2 "忙しい" のメッセージがあります。最初はからeventExpr（現在のところNULLであるため、handlerExprは実行されません）を実行しています。 ignoreInit = TRUEであっても、常にeventExprにチェックされます。 2番目のビジーは、動的UIの最初のレンダリングに由来します。