Skip to content

Instantly share code, notes, and snippets.

@MayaGans MayaGans/app.R
Last active Jan 26, 2020

Embed
What would you like to do?
library(shiny)
# MODULE UI
customInputUI <- function(id) {
ns <- NS(id)
verbatimTextOutput(ns("debug"))
}
# MODULE SERVER
# Render the custom shiny input binding
customInput <- function(input, output, session) {
# This should return "This is a test" from script.js....?
output$debug <- renderPrint({ input$testing })
}
ui <- fixedPage(
h2("Shiny.setInputValue Inside Module"),
customInputUI("custom_input"),
# This is where we assign the custom binding
tags$script(src = "script.js")
)
server <- function(input, output, session) {
df <- callModule(customInput, "custom_input")
}
shinyApp(ui, server)
Shiny.setInputValue('test-testing', "This is a test");
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
You can’t perform that action at this time.