Programim dhe zhvillim, javascript, python, php, html

Si të ktheni një ndryshore nga një modul në server në një aplikacion R Shiny?

Kam një vështirësi befasuese për të kthyer një variabël nga një modul në server në një aplikacion R Shiny. Në një modul, do të doja të ktheja një vlerë kur vërehet një shtypje e butonit, kështu që e kam mbështjellë deklaratën return() në një bllok brenda observeEvent(). Megjithatë, vlera e dëshiruar nuk është kthyer, i gjithë blloku observeEvent() duket të jetë.

Jam përpjekur të krijoj një shembull minimal pune që përshkruan problemin më poshtë:

ui.R

# ui.R

fluidPage(
  input_module_ui("input"),
  actionButton("print_input_button",
               label = "Print Input")
)

server.R

# server.R

function(input, output, session) {

  # Calling input module.
  input_module_return <- callModule(input_module, "input")

  observeEvent(input$print_input_button, {
    print(input_module_return)
  })

}

globale.R

# global.R

source("modules/input.R")

hyrje.R

# input.R

input_module_ui <- function(id) {

  ns <- NS(id)

  tagList(
    textInput(ns("text_input"),
              label = h2("Input Text:")),
    actionButton(ns("submit_input"),
                 label = "Submit Input")
  )

}

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

  print("I should only print once")

  observeEvent(input$submit_input, {
    print("Return input")
    return(input$text_input)
  })

}

Gjatë testimit të këtij aplikacioni, unë futa "test" në kutinë e futjes së tekstit dhe dorëzova të dhënat e mia. Sidoqoftë, kur u përpoqa të printoja të dhënat e mia, në vend që të printoja "testin" siç prisja, u printua sa vijon:

<Observer>
  Public:
    .autoDestroy: TRUE
    .autoDestroyHandle: function () 
    clone: function (deep = FALSE) 
    .createContext: function () 
    .ctx: environment
    destroy: function () 
    .destroyed: FALSE
    .domain: session_proxy
    .execCount: 3
    .func: function () 
    initialize: function (observerFunc, label, suspended = FALSE, priority = 0, 
    .invalidateCallbacks: list
    .label: observeEvent(input$submit_input)
    .onDomainEnded: function () 
    onInvalidate: function (callback) 
    .onResume: function () 
    .prevId: 1896
    .priority: 0
    resume: function () 
    run: function () 
    self: Observer, R6
    setAutoDestroy: function (autoDestroy) 
    setPriority: function (priority = 0) 
    suspend: function () 
    .suspended: FALSE

Unë besoj se kjo korrespondon me bllokun e fundit në input.R:

observeEvent(input$submit_input, {
    print("Return input")
    return(input$text_input)
  })

Si mund ta bëj këtë aplikacion të funksionojë siç synohet dhe të kthej input$text_input kur vërehet input$submit_input?

module r shiny
16.05.2018

Përgjigjet:


1

Ishe shumë afër realizimit të kësaj. Truku me modulet me shkëlqim është se kalimi i variablave brenda dhe jashtë tyre kërkon kalimin e variablave si vlera reaktive. Bëra dy ndryshime të vogla në kodin tuaj për të marrë atë që mendoj se po shpresoni të shihni.

Së pari ishte kthimi i një versioni reaktiv të input$text_input nga moduli i serverit (në vend të vetë vëzhguesit, i cili thjesht duhet t'i tregojë aplikacionit se çfarë dëshironi të ndodhë):

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

  print("I should only print once")

  observeEvent(input$submit_input, {
    print("Return input")
  })

  return(reactive({input$text_input}))

}

Ndryshimi i dytë është se tani dalja nga input_module është reaktive. Nëse dëshironi vlerat dhe jo përmbajtjen e funksionit, duhet ta zgjidhni objektin duke përdorur (). Pra, në funksionin e serverit tuaj:

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

  # Calling input module.
  input_module_return <- callModule(input_module, "input")

  observeEvent(input$print_input_button, {
    print(input_module_return())
  })

}

Prodhimi:

Listening on http://127.0.0.1:6796
[1] "I should only print once"
[1] "Return input"
[1] "test"
16.05.2018
Materiale të reja
Masterclass Coroutines: Kapitulli-3: Anulimi i korutinave dhe trajtimi i përjashtimeve.
Mirë se vini në udhëzuesin gjithëpërfshirës mbi Kotlin Coroutines! Në këtë seri artikujsh, unë do t'ju çoj në një udhëtim magjepsës, duke filluar nga bazat dhe gradualisht duke u thelluar në..
Faketojeni derisa ta arrini me të dhënat false
A e gjeni ndonjëherë veten duke ndërtuar një aplikacion të ri dhe keni nevojë për të dhëna testimi që duken dhe duken më realiste ose një grup i madh të dhënash për performancën e ngarkesës...
Si të përdorni kërkesën API në Python
Kërkesë API në GitHub për të marrë depot e përdoruesve duke përdorur Python. Në këtë artikull, unë shpjegoj procesin hap pas hapi për të trajtuar një kërkesë API për të marrë të dhëna nga..
Një udhëzues hap pas hapi për të zotëruar React
Në këtë artikull, do të mësoni se si të krijoni aplikacionin React, do të mësoni se si funksionon React dhe konceptet thelbësore që duhet të dini për të ndërtuar aplikacione React. Learning..
AI dhe Psikologjia — Pjesa 2
Në pjesën 2 të serisë sonë të AI dhe Psikologji ne diskutojmë se si makineritë mbledhin dhe përpunojnë të dhëna për të mësuar emocione dhe ndjenja të ndryshme në mendjen e njeriut, duke ndihmuar..
Esencialet e punës ditore të kodit tim VS
Shtesat e mia të preferuara - Git Graph 💹 Kjo shtesë është vërtet e mahnitshme, e përdor përpara se të filloj të punoj për të kontrolluar dy herë ndryshimet dhe degët më të fundit, mund të..
Pse Python? Zbulimi i fuqisë së gjithanshme të një gjiganti programues
Në peizazhin gjithnjë në zhvillim të gjuhëve të programimit, Python është shfaqur si një forcë dominuese. Rritja e tij meteorike nuk është rastësi. Joshja e Python qëndron në thjeshtësinë,..