action button to control instrument (http request)

[realismrocks]

Hi,

I am making an rshiny app to control an instrument at work. The instrument is controlled via entering addresses into a browser. I.e. to pause the instrument the following in a browser would pause the instrument 'http://192.168.0.55/command/action/pause/1'.

I'm having trouble getting an action button to simply enter the address via GET or read_html. I have tried numerous approaches. This is my current one. Please note I do not want the action button to open a page - onclick ="window.open("address").

This is currently where I am at.

# Load packages ----
library(shiny)
library(textreadr)
library(httr)
library(readr)

# Source helper functions -----

# User interface ----
ui <- navbarPage(title = "tab1",
                 
                 tabPanel("Control", 
                          actionButton("do", "Click Me"),
                          textOutput("update_ping"), 
                          
                          
                 )
)




# Define server logic required to draw a histogram
server <- function(input, output) {
  
output$update_ping <- renderText(purge) 
observeEvent(input$do, {purge <- read_file("http://192.168.0.55/command/action/pause/1")})


}

# Run the application 
shinyApp(ui = ui, server = server)