test petstore localhost

Author: wing328

.github/workflows/samples-r.yaml

@@ -27,9 +27,9 @@ jobs:
           SWAGGER_BASE_PATH: /v2
     steps:
       - uses: actions/checkout@v5
-      - name: Add hosts to /etc/hosts
-        run: |
-            sudo echo "127.0.0.1 petstore.swagger.io" | sudo tee -a /etc/hosts
+      #- name: Add hosts to /etc/hosts
+      #  run: |
+      #      sudo echo "127.0.0.1 petstore.swagger.io" | sudo tee -a /etc/hosts
       - uses: r-lib/actions/setup-r@v2
         with:
           use-public-rspm: true

samples/client/petstore/R/test_petstore.R

@@ -5,7 +5,7 @@ library(petstore)
 var_pet <- Pet$new("name_example", list("photoUrls_example"), 56, Category$new(56, "name_example"), list(Tag$new(56, "name_example")), "available") # Pet | Pet object that needs to be added to the store
 
 #Add a new pet to the store
-api_instance <- PetApi2$new()
+api_instance <- PetApi$new()
 # Configure OAuth2 access token for authorization: petstore_auth
 api_instance$api_client$access_token <- 'TODO_YOUR_ACCESS_TOKEN';
 api_instance$api_client$username <- 'username';