R 运行时如何在闪亮的仪表板中响应用户请求

我已经完成了一个函数，它使用网页的API返回网页的一些信息。我想把它放在我的仪表板中，这样用户就可以把“ID”（RUC）放在仪表板中，然后用API的值来响应

我的API函数是：

sunat<- function(x){
  RUC_str<-as.character(x)
  url1<-paste("https://api.sunat.cloud/ruc/",RUC_str,sep = "", collapse = NULL)
  url1
  res<- GET(url1)
  data<-fromJSON(content(res, type="text", encoding = "UTF-8"))
  razon_social<-data[["razon_social"]]
  empleados<-data[["empleados"]]       
  fecha_inscripcion<-data[["fecha_inscripcion"]]
  representante_legal<-data[["representante_legal"]]  
  representante_legal_name<-representante_legal[[1]][["nombre"]]  
  trabajadores_agosto<-empleados[["2020-08"]][["trabajadores"]]
  x <- data.frame("Nombre de la empresa"=razon_social, "Nombre del representante legal(agosto)" = representante_legal_name,
                  "Trabajadores(agosto-2020)" = trabajadores_agosto,"fecha de inscripci?n"=fecha_inscripcion)
  
  
}

prove<-sunat(20100154057)

sunat

library(shiny)
library(shinydashboard)



ui <- dashboardPage(
  dashboardHeader(),
  dashboardSidebar(textInput(inputId="text_input", "RUC", value=sunat(inputId))),
  dashboardBody()
)
       
        
server<- function(input, output) {}


shinyApp(ui,server)