shinypayload

✨ Key Features

🚀 Quick Start

Installation

# Install from CRANinstall.packages("shinypayload")# Install development version from GitHubremotes::install_github("PawanRamaMali/shinypayload")# For local developmentdevtools::load_all()

Basic Example

library(shiny)library(shinypayload)# Your regular UI - no changes needed!base_ui<- fluidPage(  titlePanel("🚀 shinypayload Demo"),    fluidRow(    column(6,      h4("📊 Live Data"),      verbatimTextOutput("live_data")    ),    column(6,      h4("🔗 URL Parameters"),      verbatimTextOutput("url_params")    )  ),    hr(),  h4("📡 POST Endpoint"),  verbatimTextOutput("endpoint_info"))# Wrap your UI to handle POST requestsui<- payload_ui(base_ui,path="/api/data",token= Sys.getenv("API_TOKEN","demo-token"))server<-function(input,output,session) {# Get URL parametersoutput$url_params<- renderPrint({params<- params_get(session)if (length(params)>0)paramselse"No URL parameters"  })# Show endpoint URLoutput$endpoint_info<- renderText({url<- payload_endpoint_url(session,"/api/data")    paste("Send POST requests to:",url,"?token=demo-token")  })# React to incoming POST datalive_data<- payload_last("/api/data",session,intervalMillis=200)output$live_data<- renderPrint({data<- live_data()if (is.null(data)) {"Waiting for data... 📡"    }else {list(timestamp=data$meta$timestamp,payload=data$payload,source=data$meta$remote_addr      )    }  })}# IMPORTANT: Use uiPattern = ".*" for POST routingshinyApp(ui,server,uiPattern=".*")

Send Data to Your App

# Send JSON datacurl -X POST"http://localhost:3838/api/data?token=demo-token"\\  -H"Content-Type: application/json"\\  -d'{"sensor": "temperature", "value": 23.5, "unit": "celsius"}'# Send form datacurl -X POST"http://localhost:3838/api/data?token=demo-token"\\  -d"name=sensor01&status=active&reading=42"# Response: {"ok": true}

📖 Documentation

Core Functions

Authentication Methods

# Query parameter (recommended)POST/api/data?token=your-secret-token# HTTP HeadersPOST/api/dataX-Ingress-Token:your-secret-token# ORAuthorization:your-secret-token

Supported Content Types

💡 Use Cases

📊 Real-time Dashboards

🤖 API Integration

📱 Mobile/Web Apps

🔄 ETL Pipelines

📂 Complete Examples

🛡️ Security Best Practices

🔧 Advanced Configuration

Multiple Endpoints

# Handle different data types on different pathsui<- payload_ui(base_ui,"/sensors","sensor-token")server<-function(input,output,session) {# Different reactives for different endpointssensor_data<- payload_last("/sensors",session)user_data<- payload_last("/users",session)# Process accordingly...}

Custom Polling Intervals

# High-frequency updates (100ms)fast_data<- payload_last("/live",session,intervalMillis=100)# Low-frequency updates (5 seconds)slow_data<- payload_last("/batch",session,intervalMillis=5000)

🤝 Contributing

Development Setup

# Clone and install dependenciesgitclonehttps://github.com/PawanRamaMali/shinypayload.gitcdshinypayload# Install in development modedevtools::load_all()# Run testsdevtools::test()# Check packagedevtools::check()

📊 Package Status

📋 Requirements

📄 License

🙏 Acknowledgments

📞 Support

Made with ❤️ for the R and Shiny community

⭐ Star this repo •🍴 Fork it •📢 Share it