Hay un código de función R simple.

fx <- function(x){

  lst <- list(a = x+1, b = x*2, c = x+c(1:100))
  return(lst)

}

En este código, quiero ocultar el elemento 'lst $ c' porque los datos son largos. Entonces, lo intenté a continuación

fx <- function(x){

 lst <- list(a = x+1, b = x*2, c = x+c(1:100))
 return(lst[c(1,2)])

}

object <- fx(1)
object

y obten

###
$a
[1]2

$b
[1]2

y

fx <- function(x){

 lst <- list(a = x+1, b = x*2, c = x+c(1:100))
 invisible(lst)

}

object <- fx(1)
object

###
$a
[1]2

$b
[1]2

$c
[1]2 3 4 5 ....101

pero no quiero perder los datos 'lst $ c' cuando asigno esta función a un objeto como este.

object <- fx(2)
object

## No return 'lst$c'.
$a
[1]2

$b
[1]2

str(object)

## not include 'lst$c'
List of 2
$ a: num 2
$ b: num 2

Entonces yo quiero...

object

###
$a
[1]2

$b
[1]2

str(object)

## still have lst$c data in the data structure
List of 3
$ a: num 2
$ b: num 2
$ c: num [1:100] 2 3 4 5 6 7 ...

¿Cómo puedo hacer esto?