tpemartin / 109-1-econdv Goto Github PK

save_gg_unemploymentrate = {
  ggsave(
    ggTwbunemploymentrate,
    file=file.path(root(),"20201021practice/unemploymentrate.svg"),
    width=8,
    height=5
  )
}

save_gg_unemploymentrate = {
  destfile = file.path(root(),"20201021practice/unemploymentrate.svg")
  destDir = dirname(destfile)
  if(!dir.exists(destDir)) dir.create(destDir)
  
  ggsave(
    ggTwbunemploymentrate,
    file=destfile,
    width=8,
    height=5
  )
  
}

Error in substr(val, 1, 1) : 無效的多位元組字串於 '<e9><99><b3>?舀'
Loading required package: dplyr

Attaching package: ‘dplyr’

The following objects are masked from ‘package:stats’:

    filter, lag

The following objects are masked from ‘package:base’:

    intersect, setdiff, setequal, union

Loading required package: purrr

Attaching package: ‘lubridate’

The following objects are masked from ‘package:base’:

    date, intersect, setdiff, union

Executing mk_plan_test()
i Consider drake::r_make() to improve robustness.
> target df_taiwanXMGDPratio
`summarise()` ungrouping output (override with `.groups` argument)
> target chosenYear
> target world_import
None of the indicators your requested could be downloaded. Please verify the arguments of the `WDI()` function. You can also type a URL of this form in your browser to check if the World Bank web API is currently serving the indicator(s) of interest: https://api.worldbank.org/v2/country/all/indicator/NE.IMP.GNFS.ZS?format=json&date=1960:2020&per_page=32500&page=1
> target world_export
None of the indicators your requested could be downloaded. Please verify the arguments of the `WDI()` function. You can also type a URL of this form in your browser to check if the World Bank web API is currently serving the indicator(s) of interest: https://api.worldbank.org/v2/country/all/indicator/NE.EXP.GNFS.ZS?format=json&date=1960:2020&per_page=32500&page=1
> target worldTrade
x fail worldTrade
錯誤: target worldTrade failed.
diagnose(worldTrade)$error$message:
  沒有適用的方法可將 'inner_join' 套用到 "NULL" 類別的物件
diagnose(worldTrade)$error$calls:
  world_import %>% inner_join(world_export %>% select(-country), 
    by = c("iso2c", "year")) %>% select(year, iso2c, country, 
    contains("indicator")) %>% rename_with(.fn = function(x) {
    case_when(x == "indicator.x" ~ "M", x == "indicator.y" ~ 
        "X", TRUE ~ x)
})
  base::withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  base::eval(quote(`_fseq`(`_lhs`)), env, env)
  base::eval(quote(`_fseq`(`_lhs`)), env, env)
  `_fseq`(`_lhs`)
  magrittr::freduce(value, `_function_list`)
  function_list[[i]](value)
  dplyr::inner_join(., world_export %>% select(-country), by = c("iso2c", 
    "year"))
此外: Warning message:
package ‘drake’ was built under R version 4.0.3 

> version
               _                           
platform       x86_64-w64-mingw32          
arch           x86_64                      
os             mingw32                     
system         x86_64, mingw32             
status                                     
major          4                           
minor          0.2                         
year           2020                        
month          06                          
day            22                          
svn rev        78730                       
language       R                           
version.string R version 4.0.2 (2020-06-22)
nickname       Taking Off Again  

update.packages(ask = FALSE,
                checkBuilt = TRUE)