Ok. I could make it work, but with no reactive values.
I have this Gadgets for inputs:
numericInput(inputId= "diametro", label= "Diametro do Aco:", value= 0),
numericInput(inputId= "parede", label= "Parede:", value= 0),
textInput(inputId= "aqa", label= "AQA:", value= 0),
And I have the following Data.R
query <- sprintf(
"select
cod_ordem_producao as Ordem,
dim_ext_tubo as Diametro,
esp_par_tubo as Parede,
cod_aqa as AQA,
tmo_ciclo_plan as Ciclo,
dth_criacao_reg as Data,
dsc_aco as Grau,
val_lim_escoamento as LE,
val_tensao_residual as TR
from
QT_QTS.PLA_ORDEM_PRODUCAO
where DIM_EXT_TUBO :1
and esp_par_tubo :2
and VAL_LIM_ESCOAMENTO != 0
order by DTH_CRIACAO_REG desc"
)
df <- dbGetQuery(
connection_reportUser,
query
How can I make "DIM_EXT_TUBO :1" and "esp_par_tubo :2" receive the values from these Gadgets input?
numericInput(inputId= "diametro", label= "Diametro do Aco:", value= 0),
numericInput(inputId= "parede", label= "Parede:", value= 0),
I tried something like this:
...
df <- dbGetQuery(
connection_reportUser,
query,
data.frame(input$diametro, input$parede)
but it returns an erro saying that the "function input was not found".
Thx!