Update 4-AI_image_multimodal_location_GPT.R

Improvements on the GPT prompt

Author: fevieira27

4-AI_image_multimodal_location_GPT.R

@@ -748,9 +748,9 @@ if (file.size(image_path)>4150000){ # needed?
 # Define a string for the Bing Chat prompt, that will generate the text for the social media post. Feel free to change this to your liking
 str <- ""
 if (name=="Unknown"){
-  str <- paste0("Give me captions for an Instagram post about a photo of ",street,", ",city,"; Use at least these hashtags at the end of the captions, but feel free to add more: ",hashtags)
+  str <- paste0("Give me captions with the informative tone for a Story Post on the Platform Instagram about a photo of ",street,", ",city,"; Use at least these hashtags at the end of the captions, but feel free to add more: ",hashtags)
 } else{
-  str <- paste0("Give me captions for an Instagram post about a photo of the ",name,", ",city,"; Use at least these hashtags at the end of the captions, but feel free to add more: ",hashtags)
+  str <- paste0("Give me captions with the informative tone for a Story Post on the Platform Instagram about a photo of the ",name,", ",city,"; Use at least these hashtags at the end of the captions, but feel free to add more: ",hashtags)
 }
 
 # Encode the string using URLencode