Messages are emitted by code that rmarkdown cannot suppress

[alankjackson]

Here is a reprex:

df_temp <- as_tibble(replicate(3,sample(0:100,10,rep=TRUE))) %>% rename(x=1, y=2, z=3)
df_temp <- sf::st_as_sf(df_temp, coords=c("x", "y"), agr = "identity")
df_out <- sf::st_sfc(sf::st_point(c(50,50))) 

fit_IDW <- gstat::gstat( 
  formula = z ~ 1,
  data = df_temp, 
  set = list(idp = 1) 
)

interp_IDW <- predict(fit_IDW, df_out)
suppressMessages(interp_IDW <- predict(fit_IDW, df_out))

[inverse distance weighted interpolation] [inverse distance weighted interpolation]

Even worse is when running sf::st_as_sf(gstat::gstat.cv(fit_IDW)) I get output like:

| | 0% [inverse distance weighted interpolation] |= | 2% [inverse distance weighted interpolation] |=== | 4% inverse distance weighted interpolation] |==== | 5% etc....

[edzer]

Did you try setting debug.level = 0?

[alankjackson]

Much improved, but

Validate <- sf::st_as_sf(gstat::gstat.cv(fit_IDW, debug.level=0)) |=================================================================================| 100%

[edzer]

How about reading the documentation of gstat.cv?

[alankjackson]

Thank you.