如何从R更新JSON文件？

我有以下代码：

# Preloads ---- 

library(shiny)
library(dplyr)
library(xlsx)
library(jsonlite)
library(httr)
library(svDialogs)
library(downloader)
params <- readLines("params.json")


# end preloads ---- 


# Define server logic 
shinyServer(function(input, output) {
    my_params <- reactive({ 
        my_params[4] <- paste0("          \"time_period\":[{\"start_date\":\"", 
                               Sys.Date()-10*365, "\",\"end_date\":\"", 
                               Sys.Date(), "\"}],")
        my_params[5] <- paste0("          \"recipient_search_text\": [\"",
                               as.character(input$the_duns), "\"]")
    })    


    observeEvent(input$get_api, { 

        writeLines(my_params,"params.json")

    })  

    the_data <- reactive({ 
        # the excel workbook to download 
        pages<-list()
        url<-"https://api.usaspending.gov/api/v2/download/awards"
        API_response <- httr::POST(url, body = upload_file("params.json"))
        stop_for_status(API_response)
        json <- content(API_response, "text",encoding = "UTF-8")
        API_data <- fromJSON(json)

        download(API_data[["url"]], dest="dataset.zip", mode="wb") 
        unzip("dataset.zip", exdir = getwd())
        output <- read.table(unz("dataset.zip", "all_contracts_prime_awards_1.csv"),
                             header=T, quote="\"", sep="," ,fill = TRUE)
        output1 <- read.table(unz("dataset.zip", "all_contracts_prime_awards_1.csv"),
                              header=T, quote="\"", sep="," ,fill = TRUE)

#预加载--
图书馆（闪亮）
图书馆（dplyr）
图书馆（xlsx）
图书馆（jsonlite）
图书馆（httr）
库（SVD对话框）
库（下载程序）
参数是否可以从此问题中删除
闪亮的
组件？如果您无法在光亮的
环境之外重现问题，那么可能还有其他问题。。。如果可以的话，那么问题中所有闪亮的东西都只是分散注意力。此外，如果您试图修改现有的json字符串，查看该字符串（或其代表性等价物）会很有帮助。是否可以从这个问题中删除
闪亮的
组件？如果您无法在光亮的
环境之外重现问题，那么可能还有其他问题。。。如果可以的话，那么问题中所有闪亮的东西都只是分散注意力。此外，如果您试图修改现有的json字符串，查看该字符串（或其代表性等价物）会很有帮助。