Saya relatif baru untuk aplikasi mengkilap dan sedang mencoba membuat aplikasi sederhana: sementara saya dapat menjalankan ui.R dengan benar, saya mengalami masalah dengan server.R ...... yang saya inginkan adalah mengambil nilai bilah geser "posting" (angka ini akan digunakan sebagai argumen fungsi "wbpg"), pilih jenis plot dari menu tarik-turun dan plot variabel yang sesuai ketika tombol tindakan "RUN" ditekan ..... semua hasil dan plot disimpan ketika fungsi bernama "wbpg(x)" (di mana "x" adalah nilai bilah penggeser)...ketika wbpg(x) dijalankan, ia mengembalikan plot (ini berisi daftar semua plot dalam drop down Tidak bisa)

#UI.R
shinyUI( fluidPage(
  titlePanel(title=h4("Text Mining on  thread",align="centre")),

sidebarLayout(
    sidebarPanel(
  sliderInput("post","1. Choose no. of posts you want to run the model",value = 1, min = 1, max = 30000),
  br(),
  selectInput("plotvar","2. Select the variable you want to plot",choices=c("raw_dat"=1,"content"=2,"barplot"=3,"genderplot"=4,"girlplot"=5,"rawplot"=6,"adjplot"=7,
           "drinkplot"=8,"damageplot"=9,"songplot"=10,"sentimentplot"=11)),
  br(),
  actionButton(inputId="act",label = "RUN!")

  ),

  mainPanel(
    textOutput("out"),
    #tableOutput("tab"),
    plotOutput("hist1")
  )
)
))

Ini adalah file server, di mana masalahnya ada:

#server.R
shinyServer(function(input, output) {
    #observeEvent(input$action,wbpage(as.numeric(input$post)))
    #output$data<-renderPrint({str(get(content))})
  observeEvent(input$act,{wbpg(np)})  

  output$out<-renderText(paste("No. of posts mined: ",input$post))

#defaul<-reactiveValues(data=wbpage(3000))
np<-wbpage(as.numeric(input$post))



output$hist1 <- renderPlot({barplot})

}) 
#output$hist1 <- 
    #renderPlot({
      #plots$barplot
    #output$tab<-
  #   renderTable({ 
  #  head(data())
    #})
  #output$hist2 <- renderPlot({
  #hist(rnorm(input$num))
  #raunchyplot
  #})
#}) 
0
Pri 17 April 2020, 18:42

1 menjawab

Jawaban Terbaik

Tanpa memiliki akses ke fungsi Anda (wbpg), izinkan saya mencoba membantu Anda dengan nilai yang dikembalikan dari panggilan 'observeEvent'. Saya pikir masalah Anda adalah penempatan '})' di baris dengan 'observeEvent'. Semua yang Anda inginkan terjadi setelah mengklik tombol 'Jalankan' harus berada di dalam '})'. Jika ini bukan yang Anda butuhkan, harap ulangi pertanyaannya.

Sebagai ganti perintah 'observeEvent' Anda, gunakan kode berikut untuk melihat data yang dikembalikan setiap kali Anda mengklik tombol 'Run'. Ini menunjukkan nilai bilah penggeser dan nomor dari menu tarik-turun.

  observeEvent(input$act,{
    print (paste(input$post,input$plotvar,sep=' '))
  })
1
S Novogoratz 17 April 2020, 17:09