Weather Updates Telegram

library(telegram.bot)
library(httr)
library(jsonlite)

bot_token <- "7110788354:AAE0sYdrM2gRYGvMVJVRYkX3HFCXE8IkhT0"
chat_id <- "5996527429"
api_key <- "f925a7eecb0e895b4cee6b67a31c22ff"
location <- "Gurugram,India"

# Function to get weather forecast
get_weather_forecast <- function(api_key, location) {
  weather_url <- paste0("http://api.openweathermap.org/data/2.5/weather?q=", location, "&appid=", api_key, "&units=metric")
  response <- GET(weather_url)
  
  if (status_code(response) != 200) {
    stop("Failed to fetch weather data: ", status_code(response))
  }
  
  weather_data <- content(response, as = "parsed", type = "application/json")
  return(weather_data)
}

# Debugging function to inspect weather data structure
debug_weather_data <- function(weather_data) {
  print("Weather data structure:")
  print(str(weather_data))
}

# Function to send weather update message
send_weather_update <- function(bot, chat_id, api_key, location) {
  weather_data <- tryCatch({
    get_weather_forecast(api_key, location)
  }, error = function(e) {
    message <- paste("Failed to get weather data:", e$message)
    bot$sendMessage(chat_id = chat_id, text = message)
    return(NULL)
  })
  
  if (is.null(weather_data)) {
    return()
  }
  
  # Debugging
  debug_weather_data(weather_data)
  
  if (!is.null(weather_data$weather) && length(weather_data$weather) > 0) {
    weather_description <- weather_data$weather[[1]]$description
  } else {
    weather_description <- "N/A"
  }
  
  temperature <- weather_data$main$temp
  
  message <- paste("Weather Update:\n",
                   "Description:", weather_description, "\n",
                   "Temperature:", temperature, "°C")
  
  bot$sendMessage(chat_id = chat_id, text = message)
}

# Function to handle commands
handle_command <- function(bot, update) {
  chat_id <- update$message$chat$id
  message <- update$message$text

  cat("Chat ID:", chat_id, "\n")  # Log the chat ID to the console

  if (startsWith(message, "/start")) {
    bot$sendMessage(chat_id = chat_id, text = "Hello! I am your weather update bot. Use /weather to get the current weather.")
  } else if (startsWith(message, "/weather")) {
    send_weather_update(bot, chat_id, api_key, location)
  } else {
    bot$sendMessage(chat_id = chat_id, text = "Sorry, I don't understand that command.")
  }
}

# Create bot and set up command handlers
bot <- Bot(token = bot_token)
updater <- Updater(token = bot_token)

# Add command handlers
updater <- updater + CommandHandler("start", handle_command)
updater <- updater + CommandHandler("weather", handle_command)

# Start polling
updater$start_polling()