Shiny and Markdown: извлечение объектов из блестящего приложения в глобальную среду - PullRequest
Новая
       33

Shiny and Markdown: извлечение объектов из блестящего приложения в глобальную среду

0 голосов
/ 01 мая 2020

У меня есть следующий фрагмент в R Markdown: 

# Define UI for application that draws a histogram
ui <- fluidPage(

    # Número de simulaciones
    headerPanel('Número de simulaciones'),
    numericInput(inputId = "n",label = NULL,
                 value = 100000,min = 1,max = 200000),

    # Gráfica S exponencial.
    headerPanel('Exponencial'),
    sidebarPanel(
        sliderInput(inputId = 'lambda1',label = 'Lambda 1',value = 7,
                    min = 0, max = 15),
        sliderInput(inputId = 'rate',label = 'rate',value = 5,
                    min = 0, max = 15),
    ),
    mainPanel(
        plotOutput('plot1')
    )

)

# Define server logic required to draw a histogram
server <- function(input, output) {


    output$plot1 <- renderPlot({
        #Preparativos para los gráficos:
        set.seed(20)
        # Guardamos lo que tenemos
        lambda1<<-input$lambda1
        # Funciones Poisson Compuesto:
        rcompoundPois_exp <- function(n, lambda, rate){
            N <- rpois(n, lambda)
            vapply(N, function(k) sum(rexp(k, rate = rate)), numeric(1))
        }
        S1 <- rcompoundPois_exp(input$n,input$lambda1,input$rate)

        MASS::truehist(S1,
                       col=rainbow(125, start = 0.5, 1),
                       main = "Poisson Compuesto - Exponencial",nbins = 125)
        abline(h=0,v=0,col="black",lwd=2)
    })

}

# Run the application 
shinyApp(ui = ui, server = server,options = list(height = 750))

И я хотел бы извлечь значение "lambda1" из sliderInput в мою глобальную среду, чтобы я мог написать в \ LaTeX что-то вроде: 

$$
\lambda = `r  lambda1`
$$

, и поэтому он отображает уравнение вместе с объяснением его. Как я могу извлечь lambda1?

...